将列值转换为百分比

Question

我正在使用read.xlsx包中的openxlsx将多个Excel文件读入列表。我将列表附加rbind并执行一些数据操作。

我需要做的是将第18和19列中的值转换为百分比（当前值显示为.90，.85等，但是我也可以强制用户输入90、85等。需要90％，85％）。我试图在data.frame中并使用createStyle来做到这一点。到目前为止，没有任何效果，或者破坏了我的数据，或者干脆什么也没做。

这是我尝试过的...

openxlsx样式

# Create percent style
pct = createStyle(numFmt = "0%")
# Apply style
addStyle(wb, sheet = "filename", style = pct, cols = 18, rows = 102, gridExpand = TRUE)

str_replace

allData <- str_replace(allData$'Content', pattern = "%", "")
allData$'Content' <- as.numeric(allData)/100

应用（即使只是尝试将数据类型转换为数字也没有用。它仍然设置为“常规”

allData[, c(18)] <- sapply(allData[, c(18)], as.numeric)

任何帮助将不胜感激！

Answer 1

前一段时间想出了这个，但忘记发布答案了。对于那些有兴趣的人...

doc_values