颜色并按组更改ggplot中的线型

时间:2015-02-16 17:19:07

标签: r ggplot2

我有一个数据帧到目前为止:

  N Method1-Simulation Method1-Analytical Method2-Simulation Method3-Analytical
1 2              0.094          0.1831891              0.158          0.2789826
2 3              0.236          0.2856285              0.434          0.4670031
3 4              0.349          0.3740548              0.568          0.6097311
4 5              0.450          0.4525999              0.682          0.7174169
5 6              0.506          0.5228121              0.781          0.7976934
6 7              0.585          0.5854665              0.851          0.8566850

它将增长以容纳更多的方法。我想制作一个ggplot,其中每个方法都有自己的颜色,分析方法是实线,而模拟方法是一条虚线。

除了以下几行之外我还有其他所有内容:

longPowerCurve <- melt(powerCurve, id = "N")
colnames(longPowerCurve)[2] <- "Method"

ggplot(data=longPowerCurve,aes(x=N, y=value, colour=Method)) + geom_line() +ylab("Power") +ggtitle("Power levels for various N and distributions")+
  theme(legend.text = element_text(size = 12))

有没有办法让我自动化这个,这样如果我有5,6,7,8等等方法,它仍然有效?

1 个答案:

答案 0 :(得分:4)

您可能想要拆分method.type列。这样,您可以分别为绘图使用这两个因子。要使用虚线,您可以使用linetype参数。

groups <- data.frame(do.call('rbind', strsplit(as.character(longPowerCurve$Method),'.',fixed=TRUE)))
colnames(groups) <- c("Method", "Type")
longPowerCurve$Method <- groups$Method
longPowerCurve$Type <- groups$Type

ggplot(data=longPowerCurve,aes(x=N, y=value, colour=Method, linetype=Type)) + 
  geom_line() +
  ylab("Power") +
  ggtitle("Power levels for various N and distributions")+
  theme(legend.text = element_text(size = 12))

enter image description here