FavstatsR-Mosaic由于非数字变量而返回错误，尽管变量只是数字 此代码应该可以工作

编程问答 2022-05-29

问题描述

我正在尝试让 Favstats 工作。 我正在使用带有我加载的数字变量的“普通”数据集：

ALLBUS2018 <- read.csv("~/Desktop/ALLBUS2018.csv",sep="")

当我在其中一个变量上使用 Favstats 时，会发生以下情况：

fav_stats(~ ep01,data = ALLBUS2018,na.rm = TRUE)
Fehler in fav_stats(~ep01,na.rm = TRUE) : 
  Objekt 'pairlist' kann nicht nach 'double' umgewandelt werden
Zusätzlich: Warnmeldung:
In fav_stats(~ep01,na.rm = TRUE) :
  Auto-converting formula to numeric.

我重新安装了数据集并完全删除了 R。 我的一个朋友使用相同的输入获得了正确的输出，并且在 R 中没有其他数据。 我试过 as.numeric 和 sapply(ALLBUS2018,function(txt) eval(parse(text=txt))) Here you see another Error Message I got

您可以在这里找到使用的数据： https://www.dropbox.com/s/fa9hplvk2j6q1cl/ALLBUS2018.csv?dl=0

感谢您的帮助！ HS

解决方法

你犯了两个错误

  1. 您的文件不是 .csv - 它是由空格分隔的纯文本，而不是逗号。出于这个原因，read.csv 正在返回一个包含大量字符串的列向量。

  2. 您的语法在 mosaic::fav_stats 中是错误的 - 您应该执行 ALLBUS2018$ep01，而不是 ~ep01,data = ALLSBUS2018，后者被解释为 fav_stats(x = ~ep01,data = ALLBUS2018)。在这种情况下，x 是错误的类型（公式对象），数据作为附加参数通过 ... 传递，随后被忽略。通过 ?mosaic::favstats 查看帮助以了解更多信息。

此代码应该可以工作

您文件中的名称很难通过默认的 read.table 方法读取，因此我在单独的步骤中完成了该操作。

require("mosaic")

csv_file <- ('"V1" "V2" "V3" "V4" "V5" "V6" "V7" "V8" "V9" "V10"
"1" NA "za_nr" "doi" "version" "respid" "eastwest" "german" "ep01" "ep03" "ep04"
"2" 1 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "1" "1" "1" "1" "2" "2"
"3" 2 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "2" "2" "1" "2" "4" "3"
"4" 3 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "3" "1" "1" "2" "2" "3"
"5" 4 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "4" "2" "1" "2" "2" "3"
"6" 5 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "5" "2" "1" "3" "2" "3"
"7" 6 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "6" "1" "1" "1" "3" "3"
"8" 7 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "7" "1" "1" "3" "2" "3"
"9" 8 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "8" "1" "1" "2" "3" "3"
"10" 9 "5270" "doi:10.4232/1.13250" "2.0.0 (2019-03-26)" "9" "1" "1" "1" "2" "4"')

ALLBUS2018 <- read.table(text = csv_file,sep = " ") # <- for the purpose of this example
# ALLBUS2018 <- read.table(file = "ALLBUS2018.csv",sep = " ") <- what you should do

### Fix row & colnames
colnames(ALLBUS2018) <- ALLBUS2018[1,]
ALLBUS2018 <- ALLBUS2018[-1,]
rownames(ALLBUS2018) <- ALLBUS2018[,1]
ALLBUS2018 <- ALLBUS2018[,-1]

# This syntax is wrong:
try(mosaic::fav_stats(~ep01,data = ALLBUS2018,na.rm = TRUE))
#> Warning in mosaic::fav_stats(~ep01,na.rm = TRUE): Auto-
#> converting formula to numeric.
#> Error in mosaic::fav_stats(~ep01,na.rm = TRUE) : 
#>   'language' object cannot be coerced to type 'double'

# This syntax is right:
mosaic::fav_stats(ALLBUS2018$ep01,na.rm = TRUE)
#> Warning in mosaic::fav_stats(ALLBUS2018$ep01,na.rm = TRUE): Auto-converting
#> character to numeric.
#>  min Q1 median Q3 max     mean       sd n missing
#>    1  1      2  2   3 1.888889 0.781736 9       0

由 reprex package (v0.3.0) 于 2021 年 1 月 23 日创建

rrr-mosaic