Excel公式計算，存在問題：輸入公式時候，原始數據不存在。 R語言解決。
{
rm(list=ls())
getwd()
setwd("E:\\0000\\0001數據\\數據\\cess\\示例文件")}
##import 表格
library(readxl)
dataset <- read_excel("示例文件.xlsx", sheet = 3)
View(dataset)
{
dat <- dataset
## 每一行的3:30除以原始的，然後循環。
a <- c(1:100)
b <- c(3:30)
dat_T <- dat[1,]
dat_T <- dat_T[-1,]
for(i in a){
dat1 <- dat[i,]
for (j in b) {
dat1[1,j] <- dat1[1,j]/dat1[1,2]
}
dat1 <- as.data.frame(dat1)
dat_T <- rbind(dat_T,dat1)
}
}
library(xlsx)
write.xlsx(dat_T, file = "示例文件.xlsx", sheetName = "計算百分比",append = TRUE)
重點地方： for循環中的代碼。
for(i in a){
dat1 <- dat[i,]
for (j in b) {
dat1[1,j] <- dat1[1,j]/dat1[1,2]
}
dat1 <- as.data.frame(dat1)
dat_T <- rbind(dat_T,dat1)
}
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
