I hereby claim:
- I am luiscruz on github.
- I am luiscruz (https://keybase.io/luiscruz) on keybase.
- I have a public key whose fingerprint is FA17 CC97 F92D CD26 E1AD F396 41B1 395B CEDD C3EA
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
library(ggplot2) | |
pf <- read.delim("https://s3.amazonaws.com/udacity-hosted-downloads/ud651/pseudo_facebook.tsv") | |
qplot(data=subset(pf, !is.na(gender)), x=friend_count, binwidth=25)+ | |
scale_x_continuous(limits = c(0,1000), breaks=seq(0,1000,50))+ | |
facet_wrap(~gender) |
library(gridExtra) | |
library(ggplot2) | |
pf <- read.delim("https://s3.amazonaws.com/udacity-hosted-downloads/ud651/pseudo_facebook.tsv") | |
p1<-qplot(data=pf, x=friend_count, binwidth=30) | |
p2<-qplot(data=pf, x=log10(friend_count+1)) | |
p3<-qplot(data=pf, x=sqrt(friend_count)) | |
grid.arrange(p1,p2,p3,ncol=1) |
suppressMessages(library(dplyr)) | |
library(gridExtra) | |
pf <- read.delim("https://s3.amazonaws.com/udacity-hosted-downloads/ud651/pseudo_facebook.tsv") | |
pf.fc_by_age_months <- pf %>% | |
group_by(age_with_months) %>% | |
summarise( | |
friend_count_mean=mean(friend_count), | |
friend_count_median=median(friend_count), |
pf <- read.delim("https://s3.amazonaws.com/udacity-hosted-downloads/ud651/pseudo_facebook.tsv") | |
ggplot(aes(x=age, y=friend_count), data=pf)+ | |
xlim(13,90)+ | |
geom_point(alpha = 0.05, | |
position = position_jitter(h=0), | |
color = 'blue' | |
)+ | |
coord_trans(y="sqrt")+ | |
geom_line(stat="summary", fun.y = mean) |