2012-09-21 3 views
1

날짜별로 활동 개수의 간단한 막대 문자를 얻으려고합니다. 그러나 데이터를 R로 가져올 때 일부 레코드를 건너 뛰거나 날짜 형식을 올바르게 변환하지 않습니다.R의 서식을 지정하는 데 도움이 필요

ua <- read.table('report_users_activities_byrole 2.txt',sep='|',header=T) 
qplot(date, 
     data=ua, 
     geom="bar", 
     weight=count, 
     ylab="User Count", 
     fill=factor(un_region)) + 
    opts(axis.text.x =theme_text(angle=45, size=5)) 

그리고 내 일에 그 예제의 버전입니다 (작동해야이 같은 코드를하지만 뭔가 문제가 있는지

head(ua) 

     date     role           name un_region    un_subregion    us_state count 
1 2012-06-21 ENTREPRENEUR   Australia         Oceania  Australia and New Zealand        2 
2 2012-06-21 ENTREPRENEUR   Belgium          Europe  Western Europe          1 
3 2012-06-21 ENTREPRENEUR   Bosnia and Herzegovina      Europe  Southern Europe          1 
+5

왜 그런지/작동하지 않는 부분은 생략했습니다. – joran

+0

날짜는 "텍스트"(모드 문자)이며 "날짜"유형이 아니기 때문에. –

답변

1

확실하지 : 여기

은 내가 사용하고있는 스크립트입니다 http://had.co.nz/ggplot2/scale_date.html)

df = data.frame(date=sample(seq(Sys.Date(), len=100, by="1 day"),size=100,replace=TRUE)) 
qplot(x=date,data=df,geom="bar") 

df는 data.frame ㅁ이며 일부 날짜가 다른 샘플보다 더 자주 나타납니다 (sample() 함수 임). 왜 qplot() 호출에서 "weight"인수를 원하는지 확실하지 않습니다. 또한 날짜 변수가 적절한 날짜 (안 문자열), 즉

str(df$date) 

달리

qplot(x=factor(date),data=df,geom="bar") 

뿐만 아니라 작동해야 할 있는지 확인합니다.

3

나는 당신이 실제 날짜 형식으로 파일을 읽을받은 날짜의 텍스트 표현을 설정하는

ua[,"Date"] <- as.Date(ua[,"Date"]) 

같은 뭔가가 필요 생각한다.

0

내 데이터 추출시 인코딩 문제가있는 것처럼 보입니다. Google에서 가져 오기를 정리하고 다시 정리하여 ua <- read.csv("~/Desktop/R Working/report_users_activities_byrole.csv")을 실행했는데 작동했습니다.

관련 문제