"캐스팅"후에 바 plot을 생성 할 수 없음

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 

내 문제가 X 축 날짜 및 값과 관련된 코드를 갖는 각각의 바 인 가진 막대 플롯 칼럼 ​​200g 아래의 값을 갖는 barplot을 만들 목적으로한다는 것이다. (이것은 또한 날짜의 위 또는 아래의 x 축에있을 수 있음)

내 문제는 내가 다음과 같은 오류를

"barplot.default 오류 (e_disp)를 얻을 수 있습니다 : '높이'벡터해야합니다 또는 매트릭스 "

그래서 제 질문은 1) 나는 '캐스트'사용 후 수행해야 할 노력하고 있습니다 무엇 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

은이다이 당신은 무엇 후 :

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

:

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을 ")로 구분하여 날짜 및 코드 열을 붙여 넣기