如何在R语言中进行中文编程

又发现了个好玩的hiahiahia:
给四个例子,大家看了例子应该都能会用中文写r语言:
例1
预定义:

# 定义函数
"生成正态分布随机数"<-function(数量=1,均值=0,标准差=1){rnorm(数量,mean=均值,sd=标准差)}
"画个直方图"<-function(数据,是否转换为概率密度){
  if(是否转换为概率密度=='是的'){
    hist(数据,probability=TRUE)
  }else{
    hist(数据,probability=FALSE)
  }
  }
"计算核密度"<-function(x){density(x)}
"画条线"<-function(曲线数据,颜色,粗细程度){lines(曲线数据,col=颜色,lwd=粗细程度)}

中文编程:

# 中文编程代码部分
"正态分布数据"<-生成正态分布随机数(数量=1000,均值=0,标准差=1)
画个直方图(正态分布数据,是否转换为概率密度='是的')
画条线(计算核密度(正态分布数据),颜色='red',粗细程度=3)

效果:
在这里插入图片描述

例2
预定义:

# 定义函数
"输出"<-function(x){print(x)}
"求均值"<-function(x){mean(x)}
"建立集合"<-function(...){c(...)}

中文编程:

# 中文编程代码部分
"一群人的年龄"=建立集合(15,26,18,21,30)
输出(一群人的年龄)
"平均年龄"<-求均值(一群人的年龄)
输出(平均年龄)

结果:

[1] 15 26 18 21 30
[1] 22

例3
预定义:

# 定义函数
"输出"<-function(x){print(x)}
"生成正态分布随机数"<-function(数量=1,均值=0,标准差=1){rnorm(数量,mean=均值,sd=标准差)}
"排序"<-function(x){sort(x)}
"获取长度"<-function(x){length(x)}
"建立等差数列"<-function(开始,结尾,公差){seq(from=开始,to=结尾,by=公差)}
"求均值"<-function(x){mean(x)}
"求标准差"<-function(x){sd(x)}
"画条折线"<-function(横轴数据,纵轴数据,线的样式){
  if(线的样式=='楼梯状'){
    plot(横轴数据,纵轴数据,type="s")
  }else{
    plot(横轴数据,纵轴数据)
  }
}

中文编程:

# 中文编程代码部分
# 数据生成
"正态分布数据"<-生成正态分布随机数(数量=100,均值=75,标准差=3)


# 概率分布图
"排序后数据"<-排序(正态分布数据)
"长度"<-获取长度(排序后数据)
"网格"<-建立等差数列(开始=1,结尾=长度,公差=1)/长度

"数据的均值"<-求均值(排序后数据)
"数据的标准差"<-求标准差(排序后数据)
输出(数据的均值)
输出(数据的标准差)

画条折线(排序后数据,纵轴数据=网格,线的样式='楼梯状')

结果:

[1] 75.36
[1] 2.914

在这里插入图片描述
例4
预定义:

# 定义函数
"输出"<-function(x){print(x)}
"建立等差数列"<-function(开始,结尾,公差){seq(from=开始,to=结尾,by=公差)}
"创建一个矩阵"<-function(用到的数据,矩阵行数,矩阵列数,按行排列){
  if(按行排列=='是的'){
    matrix(data=用到的数据,nrow=矩阵行数,ncol=矩阵列数,byrow=TRUE)
  }else{
    matrix(data=用到的数据,nrow=矩阵行数,ncol=矩阵列数,byrow=FALSE)
  }
}

中文编程:

# 中文编程代码部分
"一个数列"<-建立等差数列(开始=1,结尾=17,公差=2)
输出(一个数列)

"第一个矩阵"<-创建一个矩阵(用到的数据=一个数列,矩阵行数=3,矩阵列数=3,按行排列='是的')
输出(第一个矩阵)

"第二个矩阵"<-创建一个矩阵(用到的数据=一个数列,矩阵行数=3,矩阵列数=3,按行排列='不要')
输出(第二个矩阵) 

结果:

[1] 1 3 5 7 9 11 13 15 17
.
…[,1] [,2] [,3]
[1,] 1 3 5
[2,] 7 9 11
[3,] 13 15 17
.
…[,1] [,2] [,3]
[1,] 1 7 13
[2,] 3 9 15
[3,] 5 11 17

  • 2
    点赞
  • 2
    收藏
  • 打赏
    打赏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 1

打赏作者

slandarer

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值