“铸造”后无法产生条形图

Question

在小数据集上成功执行强制转换（使用重塑包）后，我获得了以下框架（e_disp），这正是我要找的。

        Date Code        200g
1 2010/06/01 cg4j 0.519880141
2 2010/09/19 7gv2 0.158999682
3 2011/04/14 zl94 0.294174203
4 2011/05/27 a13t 0.140232549

我的问题是我希望创建一个条形图，其中列200g下的值以条形图绘制，x轴为日期，每个条形码的代码与值相关联。 （这也可以在日期之上或之下的x轴上）

我的问题是我收到以下错误

＆＃34; barplot.default（e_disp）出错：＆＃39;身高＆＃39;必须是矢量或矩阵＆＃34;

所以我的问题是 1）在使用＆＃39; cast＆＃39;之后我可以做些什么呢？ 2）如果有任何建议如何完成这个

任何帮助将不胜感激

Answer 1

使用ggplot2可以轻松完成此操作。这是一个例子

# generate dummy data
mydf = data.frame(date = 1:5, code = letters[1:5], value = rpois(5, 40))

# plot it using ggplot2
library(ggplot2)
pl = ggplot(mydf, aes(x = date, y = value)) +
     geom_bar(stat = 'identity') +
     geom_text(aes(label = code), vjust = -1)
print(p1)

Answer 2

这就是你的目标：

dat <- read.table(textConnection("Date Code x200g
 1 2010/06/01 cg4j 0.519880141
 2 2010/09/19 7gv2 0.158999682
 3 2011/04/14 zl94 0.294174203
 4 2011/05/27 a13t 0.14023254"), header=TRUE, as.is=TRUE)
dat$Date <- as.Date(dat$Date)

将日期和代码列分隔为换行符（\ n“）以生成标签：

barplot(dat$x200g, names.arg=paste(dat$Date,"\n", dat$Code, sep=""),  ylab=" ")