R绘制citibike性别频率柱状图报≥2^31元素错误如何修改代码

报错原因 #

你当前的代码将整个数据集传入table()函数，相当于要对数据集所有字段的取值组合做交叉统计，Citi Bike的单月出行数据体量极大，直接触发了R语言对table()函数元素数上限的限制。

解决方法 #

只需要指定统计数据集中的性别字段即可，Citi Bike公开数据集的性别字段列名为gender，修正后的代码如下：

barplot(table(`202004.citibike.tripdata`$gender), xlab="Gender",ylab="Frequency", main="Frequency Gender")

可选优化 #

如果需要进一步调整统计逻辑和展示效果，可以参考以下调整：

• 排除统计结果中的缺失值，给table()函数添加useNA参数：

  barplot(table(`202004.citibike.tripdata`$gender, useNA = "no"), xlab="Gender",ylab="Frequency", main="Frequency Gender")
  

• 给柱状图添加中文分类标签，提升可读性：

  gender_counts <- table(`202004.citibike.tripdata`$gender)
  names(gender_counts) <- c("未知", "男性", "女性")
  barplot(gender_counts, xlab="性别",ylab="频次", main="不同性别用户出行频次")
  

内容的提问来源于stack exchange，提问作者Lavar Ball