我不斷收到警告訊息，例如：
as.is should be specified by the caller using true
代碼是這樣的：
difficulty_data <- data_original[,c(-1)] %>% colMeans() %>% t() %>% as.data.frame() %>% t()
difficulty_data <- reshape::melt(difficulty_data, id.vars=c("id")) %>% dplyr::select(-X2)
描述 ：
我想計算資料框的 colmean并將它們分成兩個不同的列。我洗掉了“X2”，因為最后我想用 ggplot 繪制它們。（結果與值和值的 id 相結合）
uj5u.com熱心網友回復：
問題出在代碼行中 reshape::melt
dn[char] <- lapply(dn[char], type.convert)
應該type.convert與as.is = TRUE
在下一步中它會顯示警告
indices <- do.call(expand.grid, dn)
警告訊息：在 type.convert.default(X[[i]], ...) 中：'as.is' 應該由呼叫者指定；使用 TRUE
即如果我們查看源代碼
getAnywhere("melt.matrix")[1]
function (data, varnames = names(dimnames(data)), ...)
{
values <- as.vector(data)
dn <- dimnames(data)
if (is.null(dn))
dn <- vector("list", length(dim(data)))
dn_missing <- sapply(dn, is.null)
dn[dn_missing] <- lapply(dim(data), function(x) 1:x)[dn_missing]
char <- sapply(dn, is.character)
dn[char] <- lapply(dn[char], type.convert)
indices <- do.call(expand.grid, dn)
names(indices) <- varnames
data.frame(indices, value = values)
}
并嘗試重現該問題 mtcars
data(mtcars)
difficulty_data <- mtcars %>%
colMeans() %>%
t() %>%
as.data.frame %>%
t()
資料是具有一列和rownames屬性的矩陣
> reshape::melt(difficulty_data)
X1 X2 value
1 mpg 1 20.090625
2 cyl 1 6.187500
3 disp 1 230.721875
4 hp 1 146.687500
5 drat 1 3.596563
6 wt 1 3.217250
7 qsec 1 17.848750
8 vs 1 0.437500
9 am 1 0.406250
10 gear 1 3.687500
11 carb 1 2.812500
Warning message:
In type.convert.default(X[[i]], ...) :
'as.is' should be specified by the caller; using TRUE
如上所述，解決方法是添加 type.convert as.is = TRUE
data <- difficulty_data
varnames <- names(dimnames(data))
values <- as.vector(data)
dn <- dimnames(data)
if (is.null(dn))
dn <- vector("list", length(dim(data)))
dn_missing <- sapply(dn, is.null)
dn[dn_missing] <- lapply(dim(data), function(x) 1:x)[dn_missing]
char <- sapply(dn, is.character)
dn[char] <- lapply(dn[char], type.convert, as.is = TRUE) #change here
indices <- do.call(expand.grid, dn)
names(indices) <- varnames
data.frame(indices, value = values)
Var1 Var2 value
1 mpg 1 20.090625
2 cyl 1 6.187500
3 disp 1 230.721875
4 hp 1 146.687500
5 drat 1 3.596563
6 wt 1 3.217250
7 qsec 1 17.848750
8 vs 1 0.437500
9 am 1 0.406250
10 gear 1 3.687500
11 carb 1 2.812500
修復后沒有警告
因此，我們可以創建該函式的副本并更改特定行
meltnew <- reshape::melt.matrix
body(meltnew)[8][[1]] <- dn[char] <- lapply(dn[char], type.convert, as.is = TRUE)
現在，測驗一下
> meltnew(difficulty_data)
X1 X2 value
1 mpg 1 20.090625
2 cyl 1 6.187500
3 disp 1 230.721875
4 hp 1 146.687500
5 drat 1 3.596563
6 wt 1 3.217250
7 qsec 1 17.848750
8 vs 1 0.437500
9 am 1 0.406250
10 gear 1 3.687500
11 carb 1 2.812500
沒有警告
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/331168.html