Question

我在Excel中构建了一个带有一些字符值和一些数值（Screenshot of data as set up in Excel）的简单矩阵。我使用openxlsx包将其读入R中，如下所示：

library(openxlsx)
data <- read.xlsx('~desktop/data.xlsx)

之后我检查课程：

sapply(data, class)
         x1         a         b          c
"character" "numeric" "numeric"  "numeric"

这正是我想要的。当我尝试转置矩阵，然后再次检查类时，我的问题出现了：

data <- t(data)

当我现在检查sapply时，所有值都是“character”。为什么在转置时不保留类？

Answer 1

首先，当我在您的电子表格中读到时，我没有得到您的结果，因为以逗号分隔的数字的单元格显示为字符。

data <- read.xlsx("data.xlsx")
data
#  X1   a b   c
#1  x 0,1 3 4,5
#2  y 2,4 0 6,5
#3  z  24 0   0
sapply(data,class)
#         X1           a           b           c 
#"character" "character"   "numeric" "character"

但是您真正看到的问题是，通过转置数据框，您将混合类型放在同一列中，以便R将整个列转换为最广泛的公共类型，在这种情况下就是字符。

mydata<-data.frame(X1=c("x","y","z"),a=c(1,2,24),b=c(3,0,0),c=c(4,6,0),stringsAsFactors = FALSE)
sapply(mydata,class)
#         X1           a           b           c 
#"character"   "numeric"   "numeric"   "numeric" 
# what you showed
t(mydata)
#   [,1] [,2] [,3]
#X1 "x"  "y"  "z" 
#a  " 1" " 2" "24"
#b  "3"  "0"  "0" 
#c  "4"  "6"  "0" 

mydata_t<-t(mydata)
sapply(mydata_t,class)
#          x           1           3           4           y           2           #0           6           z          24 
#"character" "character" "character" "character" "character" "character" #"character" "character" "character" "character" 
#          0           0 
#"character" "character"

你想处理转置矩阵中的数字并将其转换回来吗？如果是这样，转置一个暂时删除了字符列的子矩阵，然后重新组合，如下所示：

sub_matrix<-t(mydata[,-1])
sub_matrix
#  [,1] [,2] [,3]
#a    1    2   24
#b    3    0    0
#c    4    6    0
sub_matrix2<-sub_matrix*2
sub_matrix2
#  [,1] [,2] [,3]
#a    2    4   48
#b    6    0    0
#c    8   12    0
cbind(X1=mydata[,1],as.data.frame(t(sub_matrix2)))
#  X1  a b  c
#1  x  2 6  8
#2  y  4 0 12
#3  z 48 0  0

为什么转置功能会将数字更改为R中的字符？

1 个答案: