R海拾遗-sprintf函数
R海拾遗-sprintf函数
火星娃统计
发布于 2020-09-15 15:21:20
发布于 2020-09-15 15:21:20
代码可运行
运行总次数：0
代码可运行
sprintf 函数
概述
sprintf函数是用来返回包含输入值的格式化组合的字符对象，偶然间在table1函数源代码中发现这个函数 对于数字和字符串联合使用的处理比较优秀 ## 代码和例子
基本格式
x<-123.456# 建立测试向量
# 默认返回结果
sprintf("%f", x)## [1] "123.456000"- 一些解释 Notation Description %s 字符串 %d 整数 %0xd 用x个零填充的整数 %f 浮点 %.xf 浮点后x个小数 %e 科学计数 %E 科学计数 %g 紧凑小数或者科学计数
基本格式
# %[parameter][flags][width][.precision][length]type- % 开始位置
- parameter 可选，指定返回值的位置n$
- flags 指示符
- width 字符宽度
- precision 精度
- 长度
- 符号类型
例子
保留三位小数
sprintf('%.3f', x)## [1] "123.456"和字符串结合，批量生成文件名
sprintf('data%02d.csv', 1:9)## [1] "data01.csv" "data02.csv" "data03.csv" "data04.csv" "data05.csv"
## [6] "data06.csv" "data07.csv" "data08.csv" "data09.csv"如果手动生成就比较麻烦
字符前添加空格
sprintf("%10.0f", x)## [1] " 123"字符前加别的字符
sprintf("%+f", x)## [1] "+123.456000"字符后加符号,通过paste0函数
paste0(sprintf("%f", x),
"%")## [1] "123.456000%"科学计数
sprintf("%e", x)## [1] "1.234560e+02"大写的E同理
sprintf("%E", x)## [1] "1.234560E+02"一个现实的例子
如何能够在导出的csv文件中显示均值加减标准差的操作？
data(iris)
sprintf("%1.3f ± %1.2f",mean(iris[,1]),sd(iris[,1]))## [1] "5.843 ± 0.83"sprintf("%1.3f (%1.2f)",mean(iris[,1]),sd(iris[,1]))## [1] "5.843 (0.83)"这样做的好处 * 可以一步到位，不用再次在excel中编辑 * tableone和table1包虽然方便，但表达方式不可选 * DIY自己的table 1 * 当然是用paste和format函数也能达到一样的目的，但是编写复杂
有趣的例子
sq<-list(
name="人厨子",
age=88,
birth=1911,
city="beijing",
like="chi"
)
# 定义人厨子类型
class(sq)<-"renchuzi"
# 定义人厨子类型的默认打印
print.renchuzi <- function(x) {
cat("renchuzi\n")
cat(sprintf('name: %s\n', x$name))
cat(sprintf('age: %s\n', x$age))
cat(sprintf('like: %s\n', x$like))
invisible(x)
}
# 输入sq
sq## renchuzi
## name: 人厨子
## age: 88
## like: chi结束语
今天是一个不顺利的一天，拉了一天的肚子，真是难受。`love&peace```
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2020-06-30，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录
腾讯云开发者
