Рисунок распределения средних показателей относительно месяца и года

[Hekpoxa]

Всем привет!! Столкнулся с одной проблемой косательно создания рисунка по распределению средних показаделей AOD (в моем случае это аэрозоль) относительно годов и месяцем, где х - это года, а y - это месяцы. Возможно я не правильно сформулировал данный вопрос, поэтому добавляю русунки которые необходимо сделать. При этом все данные есть, необходимо только построить. Как делать такой рисунок?

Заранее спасибо!

[rhot]

Да вы его ваще не сформулировали. В чём вопрос-то?!

[Hekpoxa]

Да вы его ваще не сформулировали. В чём вопрос-то?!

Как построить такой рисунок?

[trir]

d3

[gamm]

R

[Hekpoxa]

d3

это можно применить только к первому рисунку? а как другие?
Это через матлаб?

[rhot]

Первый и третий рисунки делаются с помощью ggplot в R. Для второго подойдёт пакет rasterViz.

[gamm]

второй - levelplot() + hist()/barplot() с предварительной разбивкой поля изображения на фреймы (как зовут функцию, сходу не вспомню). И все можно сделать в ggplot(), но там такое управление, что легче застрелиться ...

[Hekpoxa]

Первый и третий рисунки делаются с помощью ggplot в R. Для второго подойдёт пакет rasterViz.

второй - levelplot() + hist()/barplot() с предварительной разбивкой поля изображения на фреймы (как зовут функцию, сходу не вспомню). И все можно сделать в ggplot(), но там такое управление, что легче застрелиться

Все сложно. Завтра буду пробывать. Наверное точно легче застрелиться! Для меня это темный лес

[rhot]

Дайте данные - посмотрим, что можно сделать.

[Hekpoxa]

Дайте данные - посмотрим, что можно сделать.

Вот данные по одному из русунков, которые необходимо сделать. Я скачал платформу R, установил все пакеты, но что дальше для меня остается загадкой.

[rhot]

Как-то так...

Noname_1.png (14.76 КБ) 9228 просмотров

Код: Выделить всё

library(tidyr)
library(ggplot2)

df.in <- read.csv2(file="China AOD 2002-2017.csv", colClasses=c('character', rep('numeric', 12)), dec='.')

df <- gather(df.in, month, aod, January:December)
names(df)[1] <- 'year'
n.month <- c('January','February','March','April','May','June','July','August','September','October','November','December')
df$month <- factor(df$month, levels=n.month, labels=n.month)

ggplot(df, aes(year, month, fill=aod))+
  geom_tile()+
  scale_fill_gradient2(midpoint=0.4, high='red', low='blue')

[Hekpoxa]

Как-то так...

Спасибо огромное. А 2 и 3 рисунок сложно делается? постараюсь применить этот код у себя, хотя возможно я рукожоп... .

[rhot]

Для тех, кто знаком с R, несложно.

Третий рисунок ваще бестолковый. Условные обозначения совсем не бьются с изображённой информацией.

[Hekpoxa]

Для тех, кто знаком с R, несложно.

установил library(tidyr), library(ggplot2) и все на этом возникли проблемы это полный ппц.