有效地将树干和树叶转换为R中的向量
有效地将树干和树叶转换为R中的向量
提问于 2018-06-05 05:27:29
我需要验证汇总统计数据(平均值、标准差等)。对于许多茎和叶图，我已经编写了一些函数来尝试将茎和叶图转换为向量，因为从R中的向量中很容易获得统计信息。
茎和叶图可以作为矩阵或数据帧输入，其中每行都是一个字符串。"|“符号表示小数位的分隔符。例如，下面的茎和叶图
100 | 9
102 | 601
104 | 0678
106 | 5
108 | 649
110 | 3857
112 | 56
114 | 29可以输入为
> example.stem = rbind("100|9", "102|601", "104|0678", "106|5", "108|649", "110|3857", "112|56", "114|29")我的两个函数执行这个茎和叶图的转换
## Convert a single row into a vector
> convert.row = function(current){
temp.split = as.vector(strsplit(current, split="|", fixed=TRUE)[[1]])
int = temp.split[1]
dec = temp.split[2]
dec = (strsplit(dec, ""))[[1]]
temp.string = NULL
for(i in 1:length(dec)){
temp.string[i] = paste(int, dec[i], sep=".")
}
result = as.numeric(temp.string)
return(result)
}
## Convert matrix or dataframe with a stem and leaf plot into a vector
> stem.to.vec = function(df){
df = data.frame(df, stringsAsFactors = F)
result.vec = NULL
for(i in 1:nrow(df)){
current = df[i, ]
result.vec = c(result.vec, convert.row(current))
}
return(result.vec)
} 我们可以验证这是否有效，因为我们知道解决方案：
> solution = c(100.9, 102.6,102.0,102.1,104.0,104.6,104.7,104.8,106.5,108.6,108.4,108.9,110.3,110.8,110.5,110.7,112.5,112.6, 114.2, 114.9)
> stem.to.vec(example.stem) == solution尽管此解决方案有效，但它并不优雅或高效。我们正在将包含字符串的矩阵/数据帧转换为数值，然后再转换回字符串，然后再转换为数值。因此，对于非常大的茎和叶小区，它的工作速度可能会很慢。
有没有人能建议一个更好、更高效、转换次数更少的解决方案？
回答 2
Stack Overflow用户
回答已采纳
发布于 2018-06-05 06:31:08
这并不美观，但我认为您无论如何都必须进行一些来回转换。
使用read.table将数据输入，然后将右侧除以10，并将左侧的每个值相加。
out <- read.table(text=example.stem, sep="|", colClasses=c("numeric","character"))
res <- unlist(Map(`+`, out$V1, lapply(strsplit(out$V2,""), function(x) as.numeric(x)/10)))
res
# [1] 100.9 102.6 102.0 102.1 104.0 104.6 104.7 104.8 106.5 108.6 108.4 108.9
# [13] 110.3 110.8 110.5 110.7 112.5 112.6 114.2 114.9
identical(solution,res)
#[1] TRUEStack Overflow用户
发布于 2018-06-05 07:11:08
下面是一个嵌套的lapply版本，它将所有组合作为字符串，然后将输出值转换为数字：
out <- unlist(lapply(strsplit(example.stem, "[|]"), function(x){
lapply(x[2], function(y){
as.numeric(paste(x[1], unlist(strsplit(y, "")), sep = "."))
})
}))
> identical(solution, out)
[1] TRUE页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50689026
复制相关文章
相似问题