【Udacity】3,7,3，第三个定性变量

一、导入数据

library(ggplot2)
getwd()
pf <- read.csv('pseudo_facebook.tsv',sep = '\t')

二、按照性别绘制年龄的箱型图

ggplot(aes(x = gender, y = age),
       data = subset(pf, !is.na(gender))) + geom_boxplot()

三、使用统计汇总将每个性别的平均年龄添加到箱线图。

ggplot(aes(x = gender, y = age),
       data = subset(pf, !is.na(gender))) + geom_boxplot()+
  stat_summary(fun.y=mean,geom='point',shape=4)

我们这时候可以看到叉号标记的平均年龄，可以看到男生的年龄相对较小一点。
这时候如果仅仅对男性和女性的好友数量进行对比的话，会受到年龄的因素影响。
四、对比不行性别，相同年纪的中位数好友数量

ggplot(aes(x=age,y=friend_count),data = subset(pf,!is.na(gender)))+
  geom_line(aes(color=gender),stat='summary',fun.y=median)