Добавил:
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
35
Добавлен:
15.09.2017
Размер:
451.1 Кб
Скачать

shape = factor(cyl), size = I(5),

alpha = I(0.3), data = mtcars)

qplot(x = price, data = diamonds, fill = I("white"),

col = I("black"))

qplot(x = price, fill = color,

data = diamonds, col = I("black"))

qplot(x = price, fill = color,

alpha = I(0.2), data = diamonds, col = I("black"), geom = "density")

library(ggplot2)

ggplot(diamonds, aes(x = price)) + geom_histogram()

ggplot(diamonds, aes(x = price,

y = carat)) + geom_point(size = 0.5, alpha = .2)+ geom_smooth(size = 1, color = "red")

str(airquality)

library(dplyr)

glimpse(airquality)

gr_airquality <- group_by(airquality, Month)

t <- summarise(gr_airquality, mean_temp = mean(Temp), mean_wind = mean(Wind))

ggplot(t, aes(Month, mean_temp))+ geom_line() +

geom_point(aes(size = mean_wind), color = "red") + geom_hline(yintercept = 75, linetype = "dotted", size = 1.2, color = "blue")

?geom_errorbar() ?geom_pointrange()

gr_mtcars <- group_by(mtcars, am, cyl)

se_data <- summarise(gr_mtcars,

mean_mpg = mean(mpg), y_max = mean(mpg) +

1.96 * sd(mpg) /

sqrt(length(mpg)),

y_min = mean(mpg) - 1.96 * sd(mpg) /

sqrt(length(mpg)))

ggplot(se_data, aes(x = factor(am), y = mean_mpg, col = factor(cyl),

group = factor(cyl))) +

geom_line()+

geom_errorbar(aes(ymin = y_min, ymax = y_max), width = 0.2) +

geom_point(shape = 21, size = 3, fill = "white")

ggplot(se_data, aes(x = factor(am), y = mean_mpg, col = factor(cyl),

group = factor(cyl))) + geom_pointrange(aes(ymin = y_min, ymax = y_max)) + geom_line()

ggplot(mtcars, aes(factor(am), mpg, col = factor(cyl), group = factor(cyl))) +

stat_summary(fun.data = mean_cl_boot, geom = "errorbar",

width = 0.2) + stat_summary(fun.data = mean_cl_boot, geom =

"point", size = 2) +

stat_summary(fun.y = mean, geom = "line")

sd_error <- function(x){

c(y = mean(x), ymin = mean(x) - sd(x), ymax = mean(x) + sd(x))

}

ggplot(mtcars, aes(factor(am), mpg, col = factor(cyl), group = factor(cyl))) +

stat_summary(fun.data = sd_error, geom = "errorbar",

width = 0.2,

position = position_dodge(0.2)) +

stat_summary(fun.data = sd_error, geom = "point", size = 2,

position = position_dodge(0.2)) + stat_summary(fun.y = mean, geom = "line",

position = position_dodge(0.2))

17. Подробнее о визуализации: Facet, Scale, Theme.

ggplot(diamonds, aes(carat))+

geom_density(alpha = .1) +

facet_grid(cut ~ color)

mtcars <- mutate(mtcars,

am = factor(am, labels = c("A",

"M")),

vs = factor(vs, labels = c("V",

"S")))

ggplot(mtcars, aes(hp, mpg))+

geom_point(aes(col = factor(cyl))) +

facet_grid(vs ~ am) +

Соседние файлы в папке R Language лабы (Сковорцов)