如何使用R在表格结果上应用百分比乐趣

我有一个来自除法运算的表格，结果是十进制格式，我想把它转换成百分比格式。我尝试使用

percent

函数直接执行此操作，但是当我尝试使用

Per时出现了一个错误，乘以100是否可以得到%格式

> Correlation_Tab <- cor(iris[,1:4])
> Correlation_Tab
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length    1.0000000  -0.1175698    0.8717538   0.8179411
Sepal.Width    -0.1175698   1.0000000   -0.4284401  -0.3661259
Petal.Length    0.8717538  -0.4284401    1.0000000   0.9628654
Petal.Width     0.8179411  -0.3661259    0.9628654   1.0000000
> Correlation_Tab <- round(Correlation_Tab*100,2)
> Correlation_Tab
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length       100.00      -11.76        87.18       81.79
Sepal.Width        -11.76      100.00       -42.84      -36.61
Petal.Length        87.18      -42.84       100.00       96.29
Petal.Width         81.79      -36.61        96.29      100.00

您可以使用
比例
中的
百分比
功能。试一试

df <- as.data.frame(cor(iris[,1:4]))
library(scales)
df <- apply(df, 2, percent)
df

 Sepal.Length Sepal.Width Petal.Length Petal.Width
[1,] "100%"       "-12%"      "87%"        "82%"      
[2,] "-12%"       "100%"      "-43%"       "-37%"     
[3,] "87%"        "-43%"      "100%"       "96%"      
[4,] "82%"        "-37%"      "96%"        "100%" 

请不要发布数据的图片。请改为提供一个。我可以用%symbol吗？
library(scales)
library(purrr)

Correlation_Tab <- data.frame(cor(iris[,1:4]))

Correlation_Tab1 <- purrr::map_df(Correlation_Tab,percent)

row.names(Correlation_Tab1) <- row.names(Correlation_Tab)

Correlation_Tab1

> Correlation_Tab1
# A tibble: 4 x 4
  Sepal.Length Sepal.Width Petal.Length Petal.Width
*        <chr>       <chr>        <chr>       <chr>
1         100%        -12%          87%         82%
2         -12%        100%         -43%        -37%
3          87%        -43%         100%         96%
4          82%        -37%          96%        100%

df <- as.data.frame(cor(iris[,1:4]))
library(scales)
df <- apply(df, 2, percent)
df

 Sepal.Length Sepal.Width Petal.Length Petal.Width
[1,] "100%"       "-12%"      "87%"        "82%"      
[2,] "-12%"       "100%"      "-43%"       "-37%"     
[3,] "87%"        "-43%"      "100%"       "96%"      
[4,] "82%"        "-37%"      "96%"        "100%" 

percent_digits <- function(x, digits = 3, format = "f") {
        paste0(formatC(100 * x, format = format, digits = digits), "%")
}
df <- apply(df, 2, percent_digits)
df
     Sepal.Length Sepal.Width Petal.Length Petal.Width
[1,] "100.0000%"  "-11.7570%" "87.1754%"   "81.7941%" 
[2,] "-11.7570%"  "100.0000%" "-42.8440%"  "-36.6126%"
[3,] "87.1754%"   "-42.8440%" "100.0000%"  "96.2865%" 
[4,] "81.7941%"   "-36.6126%" "96.2865%"   "100.0000%"