간단한 플롯 기능 있음 R

Question

R에 플롯 기능에 문제가 있습니다. 지금까지 내가 무엇을 얻었습니다.

countries <- c("CHINA ", "UNITED STATES", "UNITED KINGDOM", "GERMANY") 
KeyItems <- c("Pretax Income", "Total Liabilities", "Total Assets") 
datA <- mean_values[mean_values$Country %in% countries & mean_values$KeyItem %in% KeyItems, ] 
datA$KeyItem <- factor(datA$KeyItem, levels = KeyItems, order = TRUE) 
p <- xyplot(mn_value ~ Year | KeyItem, datA, groups = datA$Country[, drop = TRUE], 
      auto.key = list(space = "right"), par.settings = simpleTheme(pch = 1:5), 
      type = c("p", "l"), as.table = TRUE) 
print(p) 

내 dataframe은 다음과 같습니다 :이 오류를 반환

KeyItem   Year  Country          mn_value 
172 Pretax Income 1980 SWITZERLAND         2.091623e+08 
173 Pretax Income 1980 IRELAND          3.597619e+07 
174 Pretax Income 1980 GERMANY          2.301015e+07 
175 Pretax Income 1980 SWEDEN          4.980680e+07 

:

Error in dat$Year == Year : 'Year' is missing 

내가 거의 R.의 경험이 난 그냥에 대한 수정을 찾을 수 없습니다가 내 문제. 미리 감사드립니다.

Answer 1

다른 사람이 언급했듯이 코드는 분명히 불완전하기 때문에 정확하지 않은 방식으로 범주 내에 mean 값을 구성하는 것으로 나타납니다. 그래서 여기에 일부 (전부는 아니지만) 방법으로 문제를 닮았다 있다는 xyplot까지 이어지는 일 예이다 : 그것은 라벨 몇 가지 추가 작업이 필요거야하지만 당신이 때까지 아마 연기 할 수

Values <- rpois(100*4*3, 200) 
datA=data.frame(Values=Values, countries=countries, KeyItems=KeyItems) 
datAaggr <- with(datA, aggregate(Values , list(KeyItems, countries) , FUN=mean)) 
# At this point you could rename the Group variables, 
# or you could have done that in the aggregate call with: 
datAaggr <- with(datA, aggregate(Values , list(KeyItems=KeyItems, countries=countries) , FUN=mean)) 
# This then succeeds using the aggregated dataframe with the re-named mean values as input: 

p <- xyplot(x ~ countries | KeyItems, data=datAaggr, 
      auto.key = list(space = "right"), par.settings = simpleTheme(pch = 1:5), 
      type = c("p", "l"), as.table = TRUE) 
print(p) 

플로팅 작업에 앞서 학습 작업 인 data.frames를 사용하여 데이터 변환을 수행하는 방법을 배웠습니다. 래티스 플로팅 시스템은 올바른 data.frame 입력이 있어야합니다.