0

我在 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)

我的数据框如下所示：

    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 方面几乎没有任何经验。我只是找不到解决问题的方法。先感谢您。

4

1 回答 1

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 进行数据转换，这是一个在绘图任务之前的学习任务。Lattice 绘图系统严重依赖于正确的 data.frame 输入。

于 2012-11-03T17:24:08.720 回答