2011-09-11 69 views
0

在小型數據集上成功執行鑄造(使用重新構建包)後,我獲得了以下框架(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 

我的問題是,我希望創建,其具有與所述X軸是所述日期和每個條具有值相關聯的代碼條繪製的柱200克下的值的barplot。 (這也可能是在x軸的上方或下方的日期)

我的問題是,我得到以下錯誤

「錯誤在barplot.default(e_disp):‘高度’必須是一個矢量或矩陣」

所以我的問題是 1)可什麼,我試圖做使用‘投’後進行 2)如果是這樣的任何建議,如何做到這一點

任何幫助將是讚賞

回答

3

這很容易用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) 
+0

謝謝,但不幸的是它並沒有解決問題 –

3

這是你所追求的:

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=" ") 

enter image description here

+0

正是我在找什麼!我f第一個問題是標籤200g需要一個字符在200g自己的面前,但在酒吧下面的標籤都很棒,謝謝! –