11

我对 R 还是很陌生，遇到了一个我找不到答案的绘图问题。

我有一个看起来像这样的数据框（虽然更大）：

df <- data.frame(Treatment= rep(c("A", "B", "C"), each = 6),
                 LocA=sample(1:100, 18), 
                 LocB=sample(1:100, 18), 
                 LocC=sample(1:100, 18))

我想要看起来像在 Excel 中生成的点图。这正是我想要的格式：每个位置的每个治疗并排的点图，多个位置的数据一起显示在一个图表上。（非常抱歉无法在此处发布图片；发布图片需要 10 声望。）

在此处输入图像描述

为每个位置绘制一个图是没有问题的，用颜色编码的点，等等：

ggplot(data = df, aes(x=Treatment, y=LocA, color = Treatment)) + geom_point()

但我不知道如何将位置 B 和 C 添加到同一个图表中。

任何建议将不胜感激！

4

2 回答 2

12

正如一些人所提到的，您需要“融化”数据，将其变成“长”形式。

library(reshape2)
df_melted <- melt(df, id.vars=c("Treatment"))
colnames(df_melted)[2] <- "Location"

在 ggplot 行话中，通过“躲避”来实现不同的组，例如并排治疗。通常对于像条形图这样的东西，你可以说position="dodge"，但geom_point似乎需要更多的手动规范：

ggplot(data=df_melted, aes(x=Location, y=value, color=Treatment)) +
  geom_point(position=position_dodge(width=0.3))

在此处输入图像描述

于 2013-02-10T23:58:54.157 回答
3

您需要重塑数据。这是一个使用示例reshape2 

library(reshape2)
dat.m <- melt(dat, id.vars='Treatment')
library(ggplot2)
ggplot(data = dat.m, 
        aes(x=Treatment, y=value,shape = Treatment,color=Treatment)) + 
                  geom_point()+facet_grid(~variable)

在此处输入图像描述

既然你想要一个dotplot，我也建议一个格子解决方案。我认为在这种情况下更合适。

dotplot(value~Treatment|variable,
        groups = Treatment, data=dat.m,
        pch=c(25,19),
        par.strip.text=list(cex=3),
        cex=2)

在此处输入图像描述

于 2013-02-10T23:53:17.143 回答