2

我正在尝试绘制以下数据：

 ph1 = c(5, 6, 7, 8, 9)
 ph2 = ph3 = ph1

e1 = c(0.191, 0.154, 0.179, 0.073, 0.009)
e2 = c(0, 0.029, 0.054, 0.055, 0.024)
e3 = c(0.019, 0.027, 0.063, 0.029, 0.039)

set.seed(1)
df1 <- data.frame(e1 = sort(runif(5, 0.05, 0.25)),
                   e2 = sort(runif(5, 0.05, 0.25)),
                   e3 = sort(runif(5, 0.05, 0.25)),
                   ph1 = sort(runif(5, 1, 100)),
                   ph2 = sort(runif(5, 1, 100)),
                   ph3 = sort(runif(5, 1, 100))
                   )
### reshape this to give a column indicating group
 df2 <- with(df1,
         as.data.frame(cbind( c(ph1, ph2, ph3),
                             c(e1, e2, e3),
                             rep(seq(3), each=5) )
                       ))
 colnames(df2) <- c("ph","maltose_in_mg","team")
 df2$team <- as.factor(df2$team)
 library(ggplot2)
 ggplot(df2, aes(x=ph, y=maltose_in_mg, col=team)) + geom_line()

...以 x 轴上的 pH 值（5 到 9）作为标签。不幸的是，标签显示的范围是 0 到 100。

编辑（注：非功能性解决方案）：

df1 <- data.frame(e1 = sort(runif(5, 0.05, 0.25)),
                  e2 = sort(runif(5, 0.05, 0.25)),
                  e3 = sort(runif(5, 0.05, 0.25)),
                  ph1 = sort(runif(1, 5, 9)),
                  ph2 = sort(runif(1, 5, 9)),
                  ph3 = sort(runif(1, 5, 9))
                  )
4

1 回答 1

2

我认为这是你想要做的，但如果不是，请纠正我。

我将 pH 值放在 x 轴上，将麦芽糖（毫克）放在 y 轴上。

我还从包中添加了一个主题ggthemes，这使它很漂亮。您可以在我放在代码注释中的链接中找到其他主题。

coord_cartesian 最后，我用（<--这就是我认为您正在寻找的内容，控制显示的范围）限制了 x 轴，然后scale_colour_discrete在图例上放置了一个漂亮的标题。

接下来我添加了一个带有ggtitle轴标签的标题。具有theme_wsj()ggplot 设置，您只需theme_wsj()在R控制台中输入即可查看。默认是隐藏轴标签，我不得不用theme()函数和它里面的位来覆盖它。

ggplot2是一个了不起的包。您可以在这里阅读所有相关信息：http ://docs.ggplot2.org/current/

install.packages("ggthemes")
library(ggthemes)

ph1 = c(5, 6, 7, 8, 9)
ph2 = ph3 = ph1

e1 = c(0.191, 0.154, 0.179, 0.073, 0.009)
e2 = c(0, 0.029, 0.054, 0.055, 0.024)
e3 = c(0.019, 0.027, 0.063, 0.029, 0.039)

set.seed(1)
df1 <- data.frame(e1 = sort(runif(5, 0.05, 0.25)),
                  e2 = sort(runif(5, 0.05, 0.25)),
                  e3 = sort(runif(5, 0.05, 0.25)),
                  ph1 = sort(runif(1, 5, 9)),
                  ph2 = sort(runif(1, 5, 9)),
                  ph3 = sort(runif(1, 5, 9))
)

df2 <- with(df1,
            as.data.frame(cbind( c(ph1, ph2, ph3),
                                 c(e1, e2, e3),
                                 rep(seq(3), each=5) )
            ))
colnames(df2) <- c("ph", "maltose_in_mg", "team")
df2$team <- as.factor(df2$team)
library(ggplot2)
ggplot(df2, aes(x = ph, y = maltose_in_mg, colour = team)) + 
  geom_line(size = 2) +
  coord_cartesian(xlim = c(5, 9)) + # this is how you limit the axis range displayed, you can do the y, too with ylim = c(0, 1)
  scale_colour_discrete(name = "Team") + 
  theme_wsj() + # find more themes here: https://github.com/jrnold/ggthemes
  ggtitle("pH by Team") +
  ylab("Maltose in Milligrams") +
  xlab("pH") +
  theme(axis.title = element_text(angle = 90, vjust = -0.075),
        axis.text = element_text(size = 20),
        legend.text = element_text(size = 15))

于 2013-09-27T00:44:43.873 回答