Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/78.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 连接向量中的相邻字符串_R_Vector - Fatal编程技术网

R 连接向量中的相邻字符串

R 连接向量中的相邻字符串,r,vector,R,Vector,给定 zlab格式完全正确,最终在绘图上显示为标签。但是生成zlab真的很难看。我可以用更优雅的方式来做这件事吗?head和tail为您提供需要粘贴的分位数切片 zlab [1] "$1.00 - $2.80" "$2.80 - $4.60" "$4.60 - $6.40" "$6.40 - $8.20" "$8.20 - $10.00" x分位数标签应用于该图(带有实际数据)。谢谢你优雅的解决方案。 zlab <- c(paste(paste(sprintf(qz[[1]],

给定


zlab格式完全正确,最终在绘图上显示为标签。但是生成zlab真的很难看。我可以用更优雅的方式来做这件事吗?

head
tail
为您提供需要粘贴的分位数切片

zlab
[1] "$1.00 - $2.80"  "$2.80 - $4.60"  "$4.60 - $6.40"  "$6.40 - $8.20"  "$8.20 - $10.00"

x分位数标签应用于该图(带有实际数据)。谢谢你优雅的解决方案。
zlab <- c(paste(paste(sprintf(qz[[1]], fmt='$%.2f'), "-"), sprintf(qz[2],
fmt='$%.2f')), paste(paste(sprintf(qz[[2]], fmt='$%.2f'), "-"), sprintf(qz[3],
fmt='$%.2f')),paste(paste(sprintf(qz[[3]], fmt='$%.2f'), "-"), sprintf(qz[4],
fmt='$%.2f')), paste(paste(sprintf(qz[[4]], fmt='$%.2f'), "-"), sprintf(qz[5],
fmt='$%.2f')), paste(paste(sprintf(qz[[5]], fmt='$%.2f'), "-"), sprintf(qz[6],
fmt='$%.2f')))
zlab
[1] "$1.00 - $2.80"  "$2.80 - $4.60"  "$4.60 - $6.40"  "$6.40 - $8.20"  "$8.20 - $10.00"
x <- sprintf("$%.2f", qz)
x
## [1] "$1.00"  "$2.80"  "$4.60"  "$6.40"  "$8.20"  "$10.00"

paste(head(x, -1), tail(x, -1), sep=' - ')
## [1] "$1.00 - $2.80"  "$2.80 - $4.60"  "$4.60 - $6.40"  "$6.40 - $8.20"  "$8.20 - $10.00"