如何将格式更改为矩阵列表中的百分比

Question

我有一个矩阵列表，我想将矩阵中的值更改为百分比。

列表中的矩阵如下所示

       [,1]     [,2]        [,3]        [,4]        [,5]        [,6]        [,7]        [,8]        [,9]       
Year     ""    "2010"      "2011"      "2012"      "2013"      "2014"      "2015"      "2016"      "2017"     
Women "Women"  "0.4521919" "0.4360186" "0.4344594" "0.4314785" "0.4363432" "0.4402187" "0.4437688" "0.4414514"
Men    "Men"   "0.5478081" "0.5639814" "0.5655406" "0.5685215" "0.5636568" "0.5597813" "0.5562312" "0.5585486"

我想转换成

       [,1]     [,2]        [,3]        [,4]        [,5]        [,6]        [,7]        [,8]        [,9]       
Year     ""    "2010"      "2011"      "2012"      "2013"      "2014"      "2015"      "2016"      "2017"     
Women "Women"  "45.21919%" "43.60186%" "43.44594%" "43.14785%" "43.63432%" "44.02187%" "44.37688%" "44.14514%"
Men    "Men"   "54.78081%" "56.39814%" "56.55406%" "56.85215%" "56.36568%" "55.97813%" "55.62312%" "55.85486%"

我试图用lapply做到这lapply

x <- lapply(df, function(x) percent(as.numeric(x[2:nrow(x),(3:ncol(x))])))

但这会返回一个字符向量，而不是两行，然后可以使用cbind返回所需的格式。 作为字符的值并不是真正的问题，但最好使用数字值。

是否有人对如何解决上述问题提出建议。 感谢所有提示！

/ J

Answer 1

矩阵只能保存一种数据类型。 使用as.data.frame()将每个矩阵转换为data.frame，以便在同一数据结构中具有不同的数据类型。 您也可以删除每个矩阵的第一列，因为它似乎是数据结构中唯一的character值，所以它也应该工作。

Answer 2

尽管我将使用data.frame而不是矩阵，但这可能取决于您的最终目标。 您可以对矩阵进行子集化并附加一个％符号。

xy <- matrix(runif(9), nrow = 3)
xy[, 1] <- c("", "men", "women")
xy[1, ] <- c("", "2010", "2011")
xy[-1, -1] <- paste(as.numeric(xy[-1, -1]) * 100, "%")

xy
     [,1]    [,2]                 [,3]                
[1,] ""      "2010"               "2011"              
[2,] "men"   "85.1143697509542 %" "11.8173067457974 %"
[3,] "women" "89.0305595472455 %" "64.4668221008033 %"