绘制不同线条颜色和点形状的格点图
绘制不同线条颜色和点形状的格点图
提问于 2022-10-03 18:48:46
我试图用下面的数据和美学绘制一个ggplot
library(ggplot2)
mydata = rbind(data.frame('date' = as.Date(c('2010-01-01', '2011-01-01', '2012-01-01')), var1 = c('A', 'A', 'A'), var2 = c('X', 'X', 'X'), val = c(10, 3, 10)),
data.frame('date' = as.Date(c('2010-01-01', '2011-01-01', '2012-01-01')), var1 = c('B', 'B', 'B'), var2 = c('X', 'X', 'X'), val = c(10+2, 3+2, 10+2)),
data.frame('date' = as.Date(c('2010-01-01', '2011-01-01', '2012-01-01')), var1 = c('A', 'A', 'A'), var2 = c('Y', 'Y', 'Y'), val = c(10-2, 3-2, 10-2)),
data.frame('date' = as.Date(c('2010-01-01', '2011-01-01', '2012-01-01')), var1 = c('B', 'B', 'B'), var2 = c('Y', 'Y', 'Y'), val = c(10+5, 3+5, 10+5)))
ggplot(data = mydata, aes(x = date)) +
geom_line(aes(y = val, color = var1)) +
geom_point(aes(y = val, color = var1, shape = var2))这种方法产生了一个奇怪的阴谋。我想在x轴的同一date上画4条不同的线，其中var1用颜色来区分，var2用点的形状来区分。
有办法做到这一点吗？
回答 1
Stack Overflow用户
发布于 2022-10-03 19:03:59
您可以将点和线的美学映射移动到全局映射：
ggplot(data = mydata, aes(x = date, y=val, color=var1, shape=var2)) +
geom_line() +
geom_point() +
# as shown by @Gregor Thomas solution below
guides(color = guide_legend(override.aes = list(shape = NA)))
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/73939603
复制相关文章
相似问题
腾讯云开发者
