在R中建立一个区域地块

Question

我正在尝试建立一个图表来绘制相对丰度与深度变化的关系。

我有下表

          test X1m X2m X3m X4m X5m X6m X7m
1 Example1   1  10  10   1   1   5   1
2 Example2   2   5   5   5   2   2   5

我使用ggplot2（）

尝试了以下操作

 Example.class.melt<-melt(Example.df)
colnames(Example.class.melt)[1] = "Class"
colnames(Example.class.melt)[2] = "Depth"
colnames(Example.class.melt)[3] = "Relative_abundance"

Example.class.melt<-as.data.frame(Example.class.melt)

ggplot(Example.class.melt, aes(x=Depth, y=Relative_abundance, fill=as.factor(Class))) + geom_area()

出于某种原因，我不明白，它不起作用。有任何建议可以纠正这个或任何其他选择吗？

感谢

Answer 1

这就是你要找的吗？这是我根据你问这个问题的方式解释的。代码如下：

install.packages("ggplot2")
install.packages("reshape")
library(ggplot2)
library(reshape)

Example1<-c(1,10,10,1,1,5,1)
Example2<-c(2,5,5,5,2,2,5)
data<-rbind(Example1,Example2)

Example.class.melt<-melt(data)
colnames(Example.class.melt)[1] = "Class"
colnames(Example.class.melt)[2] = "Depth"
colnames(Example.class.melt)[3] = "Relative_abundance"

Example.class.melt<-as.data.frame(Example.class.melt)

ggplot(data = Example.class.melt, aes(x = Depth, y = Relative_abundance, fill=Class)) + geom_area()

您无需在课程中填写as.factor。