Python 在 R 中等效的条形图

Question

下面的代码来自 Udacity 的 Intro to Statistics

#Write a line of code to produce a barchart of Weight by groups of Height 
#using the barchart function

from plotting import *

Height=[65.78, 71.52, 69.4, 68.22, 67.79, 68.7, 69.8, 70.01, 67.9, 66.78,
66.49, 67.62, 68.3, 67.12, 68.28, 71.09, 66.46, 68.65, 71.23, 67.13, 67.83, 
68.88, 63.48, 68.42, 67.63, 67.21, 70.84, 67.49, 66.53, 65.44, 69.52, 65.81, 
67.82, 70.6, 71.8, 69.21, 66.8, 67.66, 67.81, 64.05, 68.57, 65.18, 69.66, 67.97, 
65.98, 68.67, 66.88, 67.7, 69.82, 69.09]

Weight=[112.99, 136.49, 153.03, 142.34, 144.3, 123.3, 141.49, 136.46, 
112.37, 120.67, 127.45, 114.14, 125.61, 122.46, 116.09, 140.0, 129.5, 142.97, 
137.9, 124.04, 141.28, 143.54, 97.9, 129.5, 141.85, 129.72, 142.42, 131.55, 
108.33, 113.89, 103.3, 120.75, 125.79, 136.22, 140.1, 128.75, 141.8, 121.23, 
131.35, 106.71, 124.36, 124.86, 139.67, 137.37, 106.45, 128.76, 145.68, 116.82, 
143.62, 134.93]

barchart(Height, Weight)

下面是输出

执行此代码returns 展示身高与体重线性关系的条形图。

R 中是否有等价物？

谢谢。

Answer 1

我宁愿做一个简单的散点图：

Height=c(65.78, 71.52, 69.4, 68.22, 67.79, 68.7, 69.8, 70.01, 67.9, 66.78,
        66.49, 67.62, 68.3, 67.12, 68.28, 71.09, 66.46, 68.65, 71.23, 67.13, 67.83, 
        68.88, 63.48, 68.42, 67.63, 67.21, 70.84, 67.49, 66.53, 65.44, 69.52, 65.81, 
        67.82, 70.6, 71.8, 69.21, 66.8, 67.66, 67.81, 64.05, 68.57, 65.18, 69.66, 67.97, 
        65.98, 68.67, 66.88, 67.7, 69.82, 69.09)

Weight=c(112.99, 136.49, 153.03, 142.34, 144.3, 123.3, 141.49, 136.46, 
        112.37, 120.67, 127.45, 114.14, 125.61, 122.46, 116.09, 140.0, 129.5, 142.97, 
        137.9, 124.04, 141.28, 143.54, 97.9, 129.5, 141.85, 129.72, 142.42, 131.55, 
        108.33, 113.89, 103.3, 120.75, 125.79, 136.22, 140.1, 128.75, 141.8, 121.23, 
        131.35, 106.71, 124.36, 124.86, 139.67, 137.37, 106.45, 128.76, 145.68, 116.82, 
        143.62, 134.93)

plot(Height, Weight)

但您可以使用选项 type 来获得另一种类型的情节。例如：

plot(Height, Weight, type="h")

编辑：通过示例图，问题可能会更清楚。

评论：我认为这样做会浪费很多信息，而且它根本不能很好地说明两个变量之间的线性 link...

这是一个命题：我假设有序因子是基于身高的，并且它用于汇总权重（通过计算身高属于某个区间的个体的体重平均值）。

首先从变量 Height:

创建有序因子

f <- cut(Height, 5, ordered_result = TRUE)

根据这个排序因子，总权重：
```
y <- tapply(Weight, f, mean)
```

情节：

barplot(y, col="steelblue", border=NA, xlab="Height", ylab="Weight" )

Python 在 R 中等效的条形图

Python's barchart equivalent in R

python

r