如何用外部变量标记图

Question

说我有以下数据：

require(reshape2)
require(ggplot2)
data <- data.frame(id=seq(1,5,1), var1=c(10,3,5,7,8), label1=c(2,2,2,3,2), var2=c(12, 6, 6, 8, 6), label2=c(7,7,6,7,5))

我使用melt重新整形数据，以便为ggplot做好准备。

data_graph <- melt(data[,c(1,2,4)], id="id")

然后我绘制它，标记每个点的值：

ggplot(data=data_graph, aes(y=value, x=id, group=variable, col=variable)) +
geom_line(size=2) + geom_point() + 
geom_text(aes(label=value), size=5, hjust=-.6, vjust=1.5)

但是，我实际上希望label1向量标注与var1对应的行，类似于label2和var2。我该怎么做？

Answer 1

我认为要解决您的问题，您需要为ggplot2准备一个不同的data.frame，一个用于id，变量，标签和值。

# dataset for var1
df1 <- cbind(data[,c(1,3,2)], 'var1')  
colnames(df1) <- c('id', 'label', 'value', 'variable')

# dataset for var2    
df2 <- cbind(data[,c(1,5,4)], 'var2')
colnames(df2) <- c('id', 'label', 'value', 'variable')  

# putting them together
data_graph <- rbind(df1,df2)

现在您的图表可以通过以下方式生成：

gplot(data=data_graph, aes(y=value, x=id, group=variable, col=variable)) +
geom_line(size=2) + geom_point() + 
geom_text(aes(label=label), size=5, hjust=-.6, vjust=1.5)

这就是结果，标签列中的值作为数据点的标签：