搜索
搜索

ggplot方面和条件geom_point

Anke 发表于 Dev
37
安科

我正在尝试使用ggplot和facet逐日绘制密度图。我有在不同日期从不同站点收集的数据，并且取决于它在哪一天/哪个站点，我只想在各个构面子图中绘制带有geom_point的站点。但是，我在条件方面很难。

按照此处的说明，我尝试使用一个函数，但出现“ ggplot2不知道如何处理数值类数据”错误。当我将其转换为数据框时，会收到另一个错误。

ff <- function(x){ifelse(2017$Station=="station1", c(-156.6315, 20.829), c(-156.53653, 20.77524))}

ggplot(2017, aes(x=Long, y=Lat) ) +
    stat_density_2d(aes(fill = ..level..), geom = "polygon") +
    scale_fill_distiller(palette="Spectral", direction=-1) +
    geom_point(data=ff(2017), aes(), colour="black") +      
    facet_wrap(~Date)

使用构面分割数据时，还有另一种方法可以向geom_point添加条件吗？

编辑以包含前两天的数据 

            Date  Time      Lat      Long      Station
1148 2017-01-26 08:41:09 20.70739 -156.4851    station1
1149 2017-01-26 08:42:53 20.73788 -156.4927    station1
1150 2017-01-26 08:43:27 20.71609 -156.4662    station1
1151 2017-01-26 08:45:18 20.68044 -156.4511    station1
1152 2017-01-26 08:48:28 20.71747 -156.5016    station1
1153 2017-01-26 08:49:13 20.72209 -156.5069    station1
1154 2017-01-26 08:52:21 20.73629 -156.5829    station1
1155 2017-01-26 08:56:50 20.78549 -156.6104    station1
1156 2017-01-26 09:01:05 20.72990 -156.5201    station1
1157 2017-01-26 09:03:24 20.76324 -156.5329    station1
1159 2017-01-26 09:30:10 20.77081 -156.5401    station1
1160 2017-01-26 09:31:06 20.75732 -156.5330    station1
1161 2017-01-26 09:35:09 20.71715 -156.5139    station1
1162 2017-01-26 09:36:34 20.68498 -156.5083    station1
1163 2017-01-26 09:37:30 20.71705 -156.5122    station1
1164 2017-01-26 09:39:34 20.67805 -156.5097    station1
1165 2017-01-26 09:43:28 20.69149 -156.5160    station1
1166 2017-01-26 09:50:18 20.77173 -156.6284    station1
1167 2017-01-26 09:53:48 20.77471 -156.5513    station1
1168 2017-01-26 10:02:00 20.76694 -156.5412    station1
1171 2017-01-26 10:43:39 20.76868 -156.5390    station1
1172 2017-01-26 10:46:20 20.71324 -156.5381    station1
1173 2017-01-26 10:47:26 20.75922 -156.5476    station1
1174 2017-01-26 10:49:47 20.61556 -156.5112    station1
1175 2017-01-26 10:50:15 20.63195 -156.5173    station1
1176 2017-01-26 10:52:47 20.74407 -156.4773    station1
1177 2017-01-26 10:57:54 20.74948 -156.5757    station1
1178 2017-01-26 11:02:19 20.77410 -156.5469    station1
1179 2017-01-26 11:35:12 20.77013 -156.5426    station1
1180 2017-01-26 11:35:34 20.76996 -156.5422    station1
1181 2017-01-26 11:37:03 20.76977 -156.5417    station1
1182 2017-01-26 11:43:38 20.74740 -156.5336    station1
1183 2017-01-26 11:44:15 20.74798 -156.5341    station1
1184 2017-01-26 11:45:20 20.76899 -156.5403    station1
1185 2017-01-26 11:46:20 20.76897 -156.5399    station1
1186 2017-01-26 11:48:10 20.75503 -156.5224    station1
1187 2017-01-26 11:49:41 20.75343 -156.5600    station1
1188 2017-01-26 11:50:36 20.77107 -156.5159    station1
1189 2017-01-26 11:52:53 20.77104 -156.5178    station1
1190 2017-01-26 11:53:59 20.76801 -156.5179    station1
1191 2017-01-26 11:54:49 20.76747 -156.5177    station1
1192 2017-01-26 11:57:29 20.76448 -156.5336    station1
1193 2017-01-26 11:58:07 20.76372 -156.5328    station1
1194 2017-01-26 12:01:03 20.74703 -156.5307    station1
1195 2017-01-26 12:04:21 20.76375 -156.5242    station1
1196 2017-01-26 12:31:03 20.77088 -156.5249    station1
1197 2017-01-26 12:31:26 20.77072 -156.5249    station1
1198 2017-01-26 12:32:53 20.75596 -156.5108    station1
1199 2017-01-26 12:43:20 20.75622 -156.5473    station1
1200 2017-01-26 12:56:23 20.76592 -156.6178    station1
1201 2017-01-26 12:58:28 20.75378 -156.5251    station1
1    2017-01-27 09:04:43 20.77168 -156.5855 station2
3    2017-01-27 09:07:32 20.78687 -156.5941 station2
4    2017-01-27 09:08:24 20.79017 -156.5891 station2
5    2017-01-27 09:15:49 20.82028 -156.6429 station2
6    2017-01-27 09:20:15 20.81687 -156.6544 station2
7    2017-01-27 09:25:44 20.76804 -156.7463 station2
8    2017-01-27 10:06:09 20.79725 -156.6469 station2
9    2017-01-27 10:09:41 20.81033 -156.6519 station2
10   2017-01-27 10:17:02 20.80004 -156.6318 station2
11   2017-01-27 10:19:59 20.79536 -156.7561 station2
12   2017-01-27 10:20:27 20.81162 -156.6923 station2
13   2017-01-27 10:22:28 20.80885 -156.7049 station2
14   2017-01-27 10:23:37 20.80862 -156.7241 station2
15   2017-01-27 10:25:44 20.81664 -156.6949 station2
16   2017-01-27 10:29:21 20.89242 -156.7773 station2
17   2017-01-27 11:04:07 20.79683 -156.6205 station2
18   2017-01-27 11:07:11 20.78653 -156.6084 station2
19   2017-01-27 11:08:54 20.79489 -156.6208 station2
20   2017-01-27 11:11:03 20.68624 -156.5848 station2
21   2017-01-27 11:12:26 20.78802 -156.5954 station2
22   2017-01-27 11:14:59 20.78673 -156.6850 station2
23   2017-01-27 11:22:00 20.83757 -156.8072 station2
24   2017-01-27 11:26:35 20.77718 -156.6970 station2
25   2017-01-27 12:04:06 20.77420 -156.6628 station2
26   2017-01-27 12:06:35 20.79871 -156.6504 station2
27   2017-01-27 12:06:59 20.79895 -156.6508 station2
28   2017-01-27 12:09:30 20.79087 -156.6102 station2
29   2017-01-27 12:12:53 20.82244 -156.7056 station2
30   2017-01-27 12:13:08 20.82628 -156.6616 station2
31   2017-01-27 12:18:52 20.83721 -156.7394 station2
32   2017-01-27 12:26:18 20.79902 -156.6977 station2
33   2017-01-27 13:03:39 20.79930 -156.6084 station2
34   2017-01-27 13:07:25 20.78338 -156.6148 station2
35   2017-01-27 13:09:15 20.75798 -156.5954 station2
36   2017-01-27 13:18:24 20.77019 -156.6830 station2
37   2017-01-27 13:20:42 20.81733 -156.6440 station2
38   2017-01-27 14:08:34 20.79685 -156.5975 station2
39   2017-01-27 14:13:03 20.78625 -156.5941 station2
40   2017-01-27 14:14:45 20.76980 -156.6095 station2
41   2017-01-27 14:18:04 20.81734 -156.6634 station2
42   2017-01-27 14:21:12 20.81628 -156.6588 station2
43   2017-01-27 14:25:42 20.78261 -156.6199 station2
44   2017-01-27 14:28:25 20.81209 -156.7029 station2
45   2017-01-27 14:29:10 20.80157 -156.7335 station2
46   2017-01-27 14:29:10 20.80157 -156.7335 station2

根据在特定日期使用的是第1站还是第2站，我只想绘制该位置，而不要同时绘制两个位置。

密度图

ung

您可以创建一个新的数据框pts以根据所需条件存储Lat＆Long值，然后将其添加到ggplot以后

library(tidyverse) 

df2017 <- df2017 %>% 
  mutate(Date = as.Date(Date))

pts <- df2017 %>% 
  distinct(Date, .keep_all = TRUE) %>%
  select(Date, Station) %>% 
  mutate(Long = if_else(Station == "station1", -156.53653, -156.6315),
         Lat  = if_else(Station == "station1", 20.77524, 20.829))

ggplot(df2017, aes(x=Long, y=Lat)) +
    stat_density_2d(aes(fill=..level..), geom="polygon") +
    scale_fill_distiller(palette="Spectral", direction=-1) +
    geom_point(data=pts, aes(x=Long, y=Lat), colour="black", 
               shape=17, size=5) +
    facet_wrap(~ Date)


df2017 <- read.table(text = "Nr            Date  Time      Lat      Long      Station
    1148 2017-01-26 08:41:09 20.70739 -156.4851    station1
    1149 2017-01-26 08:42:53 20.73788 -156.4927    station1
    1150 2017-01-26 08:43:27 20.71609 -156.4662    station1
    1151 2017-01-26 08:45:18 20.68044 -156.4511    station1
    1152 2017-01-26 08:48:28 20.71747 -156.5016    station1
    1153 2017-01-26 08:49:13 20.72209 -156.5069    station1
    1154 2017-01-26 08:52:21 20.73629 -156.5829    station1
    1155 2017-01-26 08:56:50 20.78549 -156.6104    station1
    1156 2017-01-26 09:01:05 20.72990 -156.5201    station1
    1157 2017-01-26 09:03:24 20.76324 -156.5329    station1
    1159 2017-01-26 09:30:10 20.77081 -156.5401    station1
    1160 2017-01-26 09:31:06 20.75732 -156.5330    station1
    1161 2017-01-26 09:35:09 20.71715 -156.5139    station1
    1162 2017-01-26 09:36:34 20.68498 -156.5083    station1
    1163 2017-01-26 09:37:30 20.71705 -156.5122    station1
    1164 2017-01-26 09:39:34 20.67805 -156.5097    station1
    1165 2017-01-26 09:43:28 20.69149 -156.5160    station1
    1166 2017-01-26 09:50:18 20.77173 -156.6284    station1
    1167 2017-01-26 09:53:48 20.77471 -156.5513    station1
    1168 2017-01-26 10:02:00 20.76694 -156.5412    station1
    1171 2017-01-26 10:43:39 20.76868 -156.5390    station1
    1172 2017-01-26 10:46:20 20.71324 -156.5381    station1
    1173 2017-01-26 10:47:26 20.75922 -156.5476    station1
    1174 2017-01-26 10:49:47 20.61556 -156.5112    station1
    1175 2017-01-26 10:50:15 20.63195 -156.5173    station1
    1176 2017-01-26 10:52:47 20.74407 -156.4773    station1
    1177 2017-01-26 10:57:54 20.74948 -156.5757    station1
    1178 2017-01-26 11:02:19 20.77410 -156.5469    station1
    1179 2017-01-26 11:35:12 20.77013 -156.5426    station1
    1180 2017-01-26 11:35:34 20.76996 -156.5422    station1
    1181 2017-01-26 11:37:03 20.76977 -156.5417    station1
    1182 2017-01-26 11:43:38 20.74740 -156.5336    station1
    1183 2017-01-26 11:44:15 20.74798 -156.5341    station1
    1184 2017-01-26 11:45:20 20.76899 -156.5403    station1
    1185 2017-01-26 11:46:20 20.76897 -156.5399    station1
    1186 2017-01-26 11:48:10 20.75503 -156.5224    station1
    1187 2017-01-26 11:49:41 20.75343 -156.5600    station1
    1188 2017-01-26 11:50:36 20.77107 -156.5159    station1
    1189 2017-01-26 11:52:53 20.77104 -156.5178    station1
    1190 2017-01-26 11:53:59 20.76801 -156.5179    station1
    1191 2017-01-26 11:54:49 20.76747 -156.5177    station1
    1192 2017-01-26 11:57:29 20.76448 -156.5336    station1
    1193 2017-01-26 11:58:07 20.76372 -156.5328    station1
    1194 2017-01-26 12:01:03 20.74703 -156.5307    station1
    1195 2017-01-26 12:04:21 20.76375 -156.5242    station1
    1196 2017-01-26 12:31:03 20.77088 -156.5249    station1
    1197 2017-01-26 12:31:26 20.77072 -156.5249    station1
    1198 2017-01-26 12:32:53 20.75596 -156.5108    station1
    1199 2017-01-26 12:43:20 20.75622 -156.5473    station1
    1200 2017-01-26 12:56:23 20.76592 -156.6178    station1
    1201 2017-01-26 12:58:28 20.75378 -156.5251    station1
    1    2017-01-27 09:04:43 20.77168 -156.5855 station2
    3    2017-01-27 09:07:32 20.78687 -156.5941 station2
    4    2017-01-27 09:08:24 20.79017 -156.5891 station2
    5    2017-01-27 09:15:49 20.82028 -156.6429 station2
    6    2017-01-27 09:20:15 20.81687 -156.6544 station2
    7    2017-01-27 09:25:44 20.76804 -156.7463 station2
    8    2017-01-27 10:06:09 20.79725 -156.6469 station2
    9    2017-01-27 10:09:41 20.81033 -156.6519 station2
    10   2017-01-27 10:17:02 20.80004 -156.6318 station2
    11   2017-01-27 10:19:59 20.79536 -156.7561 station2
    12   2017-01-27 10:20:27 20.81162 -156.6923 station2
    13   2017-01-27 10:22:28 20.80885 -156.7049 station2
    14   2017-01-27 10:23:37 20.80862 -156.7241 station2
    15   2017-01-27 10:25:44 20.81664 -156.6949 station2
    16   2017-01-27 10:29:21 20.89242 -156.7773 station2
    17   2017-01-27 11:04:07 20.79683 -156.6205 station2
    18   2017-01-27 11:07:11 20.78653 -156.6084 station2
    19   2017-01-27 11:08:54 20.79489 -156.6208 station2
    20   2017-01-27 11:11:03 20.68624 -156.5848 station2
    21   2017-01-27 11:12:26 20.78802 -156.5954 station2
    22   2017-01-27 11:14:59 20.78673 -156.6850 station2
    23   2017-01-27 11:22:00 20.83757 -156.8072 station2
    24   2017-01-27 11:26:35 20.77718 -156.6970 station2
    25   2017-01-27 12:04:06 20.77420 -156.6628 station2
    26   2017-01-27 12:06:35 20.79871 -156.6504 station2
    27   2017-01-27 12:06:59 20.79895 -156.6508 station2
    28   2017-01-27 12:09:30 20.79087 -156.6102 station2
    29   2017-01-27 12:12:53 20.82244 -156.7056 station2
    30   2017-01-27 12:13:08 20.82628 -156.6616 station2
    31   2017-01-27 12:18:52 20.83721 -156.7394 station2
    32   2017-01-27 12:26:18 20.79902 -156.6977 station2
    33   2017-01-27 13:03:39 20.79930 -156.6084 station2
    34   2017-01-27 13:07:25 20.78338 -156.6148 station2
    35   2017-01-27 13:09:15 20.75798 -156.5954 station2
    36   2017-01-27 13:18:24 20.77019 -156.6830 station2
    37   2017-01-27 13:20:42 20.81733 -156.6440 station2
    38   2017-01-27 14:08:34 20.79685 -156.5975 station2
    39   2017-01-27 14:13:03 20.78625 -156.5941 station2
    40   2017-01-27 14:14:45 20.76980 -156.6095 station2
    41   2017-01-27 14:18:04 20.81734 -156.6634 station2
    42   2017-01-27 14:21:12 20.81628 -156.6588 station2
    43   2017-01-27 14:25:42 20.78261 -156.6199 station2
    44   2017-01-27 14:28:25 20.81209 -156.7029 station2
    45   2017-01-27 14:29:10 20.80157 -156.7335 station2
    46   2017-01-27 14:29:10 20.80157 -156.7335 station2", 
                         header = TRUE, stringsAsFactors = FALSE)

由reprex软件包（v0.2.0）创建于2018-04-22。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

ggplot，条件填充 geom_point

geom_bar和geom_point条件颜色

ggplot：geom_point中的颜色，填充和大小

带有ggplot2和geom_point的图例

ggplot2：合并geom_line，geom_point和geom_bar的图例

ggplot2中带有geom_line和geom_point的图例

ggplot上geom_point和geom_smooth的不同颜色比例

ggplot2-结合了geom_point和geom_line的图例

结合ggplot geom_point和geom_line图产生的冗余图例

使用geom_bar和geom_point控制ggplot中的图例

ggplot：两组的geom_line和geom_point重叠顺序？

使用geom_point（）和geom_line（）进行多个系列的ggplot中的图例错误

在ggplot（R）中分离geom_point和geom_path绘图图层

ggplot，基于变量的geom_point颜色

ggplot2中不同的geom_point形状取决于条件

R geom_point和ggmap，位置

ggplot 将 geom_point 与 geom_line 分开的方法？

为ggplot2中的负值和正值在geom_point中设置不同的颜色

ggplot2：geom_point的边框和填充的不同Alpha值

有人可以解释ggplot和geom_point之间的区别吗？

添加geom_line以链接盒状图中所有geom_point（条件为ggplot2）

如何在ggplot2中获取堆叠的geom_bar和geom_point的通用图例？

抖动geom_line和geom_point

不同的色标geom_contour和geom_point

添加geom_point和geom_line进行绘图

Geom_point和geom_errorbar彼此不对齐

分别调整geom_point（）和geom_line（）

如何更改geom_point中的颜色或ggplot中的线

ggplot2减少geom_point（）因子之间的空间

TOP 榜单

  1. 1

    Linux的官方Adobe Flash存储库是否已过时？

  2. 2

    如何使用HttpClient的在使用SSL证书，无论多么“糟糕”是

  3. 3

    错误：“ javac”未被识别为内部或外部命令，

  4. 4

    在 Python 2.7 中。如何从文件中读取特定文本并分配给变量

  5. 5

    Modbus Python施耐德PM5300

  6. 6

    为什么Object.hashCode（）不遵循Java代码约定

  7. 7

    如何检查字符串输入的格式

  8. 8

    检查嵌套列表中的长度是否相同

  9. 9

    错误TS2365：运算符'！=='无法应用于类型'“（”'和'“）”'

  10. 10

    如何自动选择正确的键盘布局？-仅具有一个键盘布局

  11. 11

    如何正确比较 scala.xml 节点？

  12. 12

    在令牌内联程序集错误之前预期为 ')'

  13. 13

    如何在JavaScript中获取数组的第n个元素？

  14. 14

    如何将sklearn.naive_bayes与（多个）分类功能一起使用？

  15. 15

    ValueError：尝试同时迭代两个列表时，解包的值太多（预期为 2）

  16. 16

    如何监视应用程序而不是单个进程的CPU使用率？

  17. 17

    解决类Koin的实例时出错

  18. 18

    ES5的代理替代

  19. 19

    有什么解决方案可以将android设备用作Cast Receiver？

  20. 20

    VBA 自动化错误：-2147221080 (800401a8)

  21. 21

    套接字无法检测到断开连接

热门标签

归档