如何以整洁的格式从 hmisc 中的描述函数中提取值以绘制输出图形？
鲁本米格
我有一个如下所示的 data.frame：
# A tibble: 2,003 x 16
barcost barrulesplay barrulessch barrulesrelax barrulesinjury barriskskills barraincold barrainsick barrainmessy barraininjury barrainparentdis… barrainchilddis… barrainchildclo…
<int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
1 3 4 3 4 4 4 NA NA NA NA NA NA NA
2 2 5 5 5 3 5 NA NA NA NA NA NA NA
3 2 2 2 3 2 4 NA NA NA NA NA NA NA
4 2 4 4 4 2 4 NA NA NA NA NA NA NA
5 2 3 3 4 2 4 NA NA NA NA NA NA NA
6 2 4 4 4 3 4 NA NA NA NA NA NA NA
7 3 5 5 4 2 4 NA NA NA NA NA NA NA
8 4 5 5 4 4 3 NA NA NA NA NA NA NA
9 1 5 5 5 3 5 NA NA NA NA NA NA NA
10 2 4 4 4 3 4 NA NA NA NA NA NA NA
当我使用 hmisc 形式的“描述”函数时，我得到一个列表列表（如预期的那样）：
describe(questions)
在这里，我可以看到我想要提取的数据，并且在此列表的“值”下的“频率”中绘图。
我将如何创建一个整洁的 data.frame，对于每一列都有 1、2、3 等的频率，这些频率位于上面“描述”函数的列表输出中？：
summary[["barcost"]][["values"]]
$value
[1] 1 2 3 4 5
$frequency
[1] 348 806 410 360 79
So a data.frame that has the column headers as variables (under a column names "questions" for example) and then (using the example of the "barcost" questions above) 348 1's, 806 2's etc all for the "barcost" question variable.
I am aware that I may be trying to do something very complex when there is a simpler way of achieving the same goal, so open to suggestions.
eipi10
You can get frequencies by column more directly. gather will convert the data to "long" format, which facilitates tabulation by group.
library(tidyverse)
freq = gather(questions) %>% group_by(key, value) %>% tally
Then you can graph the results, for example, like this:
ggplot(freq, aes(value, n)) +
geom_col() +
facet_wrap(~ key)
If we start with the output of describe, you could do this:
freq = map_df(describe(questions), ~.x$values, .id="Column")
但是，describe不会返回少于三个唯一值的列的频率，因此此方法将从结果freq数据框中排除任何此类列。
更新：如果我理解你的评论，这里有一种基于值的比例着色的方法：
# Fake data
set.seed(2)
dat = replicate(10, sample(1:5, 50, replace=TRUE))
# Get frequencies and proportions
freq = dat %>% as.data.frame %>%
gather() %>%
group_by(key, value) %>%
tally %>%
mutate(pct=n/sum(n))
ggplot(freq, aes(value, n, fill=pct)) +
geom_col() +
facet_wrap(~ key, ncol=5) +
scale_fill_gradient(low="red", high="blue")
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
用Hmisc在R中描述功能
- 2
从 R 中的 Hmisc 包中提取完整的数据帧
- 3
禁止在表中输出Hmisc latex（）水平线（\ midrule）
- 4
R中的浮点困难，尤其是Hmisc的minor.tick
- 5
如何从R中的表函数中提取值
- 6
如何以plottable格式输出PHP结果
- 7
如何以HTML格式输出XML
- 8
如何以plottable格式输出PHP结果
- 9
如何以json格式从javascript中提取数据？
- 10
修改Hmisc程序包中cut2函数的中断
- 11
如何以某种格式从字典列表中获取值
- 12
如何从Excel函数中提取值？
- 13
如何从Excel中的时间格式值中提取值？
- 14
在R中使用Hmisc处理缺失值后如何处理“ Impute”数据类型
- 15
转置表格，使用Hmisc包中的latex（）从R导出到Latex
- 16
将模型中的估算数据添加到数据集-HMISC AregImpute
- 17
使用cut2（没有[]符号）在Hmisc中获得不错的剪切效果
- 18
在R中，如何以SVG格式绘制并输出到内存缓冲区而不是文件
- 19
在R中，如何以SVG格式绘制并输出到内存缓冲区而不是文件
- 20
如何从Javascript中的数组中提取值
- 21
如何从 Linux 中的密钥中提取值
- 22
如何从Matlab中的图形中提取数据？
- 23
如何以bgra8Unorm像素格式绘制MTLTexture
- 24
如何从map的输出字符串中提取值？
- 25
Jenkinsfile 如何从控制台输出中提取值？
- 26
如何使用 python 从 cassandra 输出中提取值？
- 27
如何以特定方式格式化Powershell输出？
- 28
如何以特定格式输出Tab变形文件
- 29
如何以与hexedit相同的格式获取Hexdump输出？
我来说两句