12 05 2019
Поздняков Иван
Факультет психологии МГУ (2009 - 2014)
Когнитивная магистратура НИУ ВШЭ (2014 - 2016)
Аспирант/стажер-исследователь Института Когнитивных Нейронаук ВШЭ
В свободное время: Digital Humanities, преподавание
R с нуля
R-way
Практика на данных
Rmarkdown, ggplot2
Описательная статистика
Визуализация данных
RMarkdown
library(ggplot2) library(survival) data(pbc) g <- ggplot(pbc[complete.cases(pbc),], aes(x = age, y = chol, colour = chol, size = chol))+ geom_point(alpha = 0.6)+ scale_color_viridis_c()+ theme_minimal()
g
plotly::ggplotly(g)
apply
Студент | До курса по R | После курса по R |
---|---|---|
Маша | 70 | 63 |
Рома | 80 | 74 |
Антонина | 86 | 71 |
Студент | Время измерения | Вес (кг) |
---|---|---|
Маша | До курса по R | 70 |
Рома | До курса по R | 80 |
Антонина | До курса по R | 86 |
Маша | После курса по R | 63 |
Рома | После курса по R | 74 |
Антонина | После курса по R | 71 |
“Aesthetics, in the original Greek sense, offers principles for relating sensory attributes (color, shape, sound, etc.) to abstractions.”
"Every geom has a default statistic, and every statistic a default geom ""
library("ggplot2") pie <- ggplot(data = pbc) pie
pie <- pie + geom_bar(width = 1, position = "fill", color = "black", aes(x = "", fill = sex)) pie
pie + coord_polar(theta = "y")
pie + coord_polar(theta = "y")+theme_void()
library(plotly) data(diamonds) diamonds <- diamonds[sample(nrow(diamonds), 1000),] gg <- ggplot(data = diamonds)+ geom_point(aes(x = carat, y = price, colour = price), alpha = 0.1)
ggplotly(gg)
plot_ly(diamonds, x = ~carat, y = ~price, color = ~carat, size = ~carat)
http://gallery.htmlwidgets.org/