Q：有若干个文件 ， 其中一个文件如图所示：
求：1-30 列中的数值占原始列中的百分比 。
解决办法：
【excel的r平方值计算公式 所占百分比怎么算excel】 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)}
推荐阅读
- 8个完全免费的软件合集 隐藏任务栏的软件
- 一个公式可以帮你搞定所有 excel公式加减乘除
- 几款更快更好用的电脑浏览器 什么浏览器好用稳定速度快
- 新手入门最全电脑知识干货 电脑必懂的基础知识
- excel设置密码简单步骤 excel表格怎么设置密码
- 快速重装系统的方法 怎样一键还原系统
- 电脑怎么安装双系统最简单的 双系统怎么安装
- 电脑无法复制粘贴的解决方法 无法复制粘贴是什么原因
- 10万左右的新能源电动汽车 10万以内口碑最好的纯电动汽车
- 野羊和麂子的区简单介绍