代码之家 › 专栏 › 技术社区 › WoeIs

ggplot的aes()中的属性“color”会破坏ggplot代码的“geom_line()”。

WoeIs · 技术社区 · 7 年前

给定以下数据帧:

structure(list(Event = c(NA, "Safari Zone Europe", "Community Day", 
"Shiny Lugia Raid", "Community Day", NA, "Community Day", NA, 
"Community Day", NA, NA, "Dortmund Safari Zone", "Dortmund Safari Zone", 
"Community Day", "Chicago Go Fest", "Chicago Go Fest", "Chicago Go Fest", 
"Zapdos Raid Day", NA, NA), PokÃ©mon = c("Magikarp", "Magikarp, Pikachu", 
"Dratini, Swablu", "Lugia", "Mareep", "Magikarp", "Charmander", 
"Pichu", "Larvitar", "Wailmer", "Mawile", "Roselia", "Roselia", 
"Squirtle, Squirtle (sunglasses)", "Minun, Shuppet", "Plusle", 
"Minun", "Zapdos", "Mawile", "Swablu"), Date = structure(c(1502323200, 
1507334400, 1519430400, 1522368000, 1523750400, 1526515200, 1526688000, 
1527638400, 1529107200, 1529452800, 1529971200, 1530403200, 1530662400, 
1531008000, 1531526400, 1531612800, 1531699200, 1532131200, 1532649600, 
1533513600), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
    Catches = c(1, 7, 9, 1, 15, 1, 4, 1, 8, 1, 1, 2, 1, 4, 3, 
    2, 1, 1, 1, 1), `Accumulated catches` = c(1, 8, 17, 18, 33, 
    34, 38, 39, 47, 48, 49, 51, 52, 56, 59, 61, 62, 63, 64, 65
    )), .Names = c("Event", "PokÃ©mon", "Date", "Catches", "Accumulated catches"
), row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"
))

当我试图用X轴上的“日期”和Y轴上的“累积捕获量”绘制数据时,我使用以下ggplot代码:

ggplot(Shiny_List, aes(x=`Date`, y=`Accumulated catches`)) +
  ggtitle("Shiny catches (dates based on GMT+1)") +
  theme(plot.title = element_text(hjust = 0.5)) +
  geom_point() +
  geom_line() +
  geom_text(aes(label=PokÃ©mon),hjust=0, vjust=1.0)

这给了我每个数据点之间的一条线。

但是,接下来,我想根据数据框架中的“事件”列来区分一些数据点,因此我添加了 color=Event 到 aes() 我的ggplot部分内容如下:

ggplot(Shiny_List, aes(x=`Date`, y=`Accumulated catches`, color=Event)) +
  ggtitle("Shiny catches (dates based on GMT+1)") +
  theme(plot.title = element_text(hjust = 0.5)) +
  geom_point() +
  geom_line() +
  geom_text(aes(label=PokÃ©mon),hjust=0, vjust=1.0)

结果会破坏数据点之间的线。现在,它为“事件”列中的每个唯一值创建单独的行,而不是像前一个图中那样,在所有数据点之间只创建一行。

是否有任何方法可以保留不同数据点的颜色,并使r忽略 geom_line() 部分如此,它为所有数据点创建一行,就像在开始时那样?

我试过了 geom_path() 也一样,但没什么变化。

1 回复 | 直到 7 年前

neilfws 7 年前

ggplot

ggplot(Shiny_List, aes(x = `Date`, 
                       y = `Accumulated catches`)) +
ggtitle("Shiny catches (dates based on GMT+1)") +
theme(plot.title = element_text(hjust = 0.5)) +
geom_point(aes(color=Event)) +
geom_line() +
geom_text(aes(label = PokÃ©mon), 
              hjust = 0, 
              vjust = 1.0)

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

9 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

9 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

9 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

9 月前

Ben · 统计向量中的单词在字符串中出现的频率

9 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

10 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

10 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

10 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

10 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

10 月前