R 是一门数据科学非常好的工具，但是由于一些原因还是需要学习一下其他工具，比如python，python很好，pecifically pandas and the wonderful scikit-learn。
散点图
R
ggplot(mtcars , aes(x = hp , y = mpg)) +
geom_point()
python
ggplot(mtcars , aes(x = 'hp' , y = 'mpg')) +\
geom_point()
image.png
箱线图
R
ggplot(mtcars , aes(x = factor(cyl) , y = mpg)) +
geom_boxplot()
python
mtcars['cyl'] = pd.factorize(mtcars.cyl)[0]
ggplot(mtcars , aes(x = 'cyl' , y = 'mpg')) +\
geom_boxplot()
image.png
直方图
R
ggplot(mtcars , aes(x = mpg)) +
geom_histogram(colour = "black" , fill = "red" , bins = 10) +
scale_x_continuous(breaks = seq(0 , 40, 5))
python
ggplot(mtcars , aes(x = 'mpg')) +\
geom_histogram(fill = 'red' , bins = 10)
image.png
分页
R
ggplot(mtcars , aes(x = hp , y = qsec)) +
geom_point() +
facet_wrap(~factor(cyl))
python
ggplot(mtcars , aes(x = 'hp' , y = 'qsec')) +\
geom_point() +\
facet_wrap(~'cyl')
image.png
更多调整
R
ggplot(mtcars , aes(x = hp , y = mpg , colour = factor(cyl))) +
geom_point()
image.png
python
ggplot(mtcars , aes(x = 'hp' , y = 'mpg' , color = 'name')) +\
geom_point()
image.png
R
ggplot(diamonds , aes(x = price , fill = color)) +
geom_histogram(colour = "black") +
facet_wrap(~cut)
image.png
python
ggplot(diamonds , aes(x = 'price' , fill = 'color')) +\
geom_histogram(colour = 'black') +\
facet_wrap('cut')
image.png
米霖微信.PNG
添加我的微信吧