1
Я пытаюсь сделать ось x фактическими годами вместо ggplot2
разбить их на половинки. Как я установил бы конкретную ось х в течение лет?Изменить разломы по оси x ggplot2
dput:
df <- structure(list(year = c(1930, 1931, 1932, 1933, 1934, 1935, 1936,
1937, 1938, 1939, 1940), ppt = c(59.0033808749924, 64.5812917950552,
66.5926177672304, 59.4756152030825, 54.7584384173037, 73.2530022881949,
52.152143860761, 62.667460409034, 68.3809388906197, 57.8704092161023,
62.8957857266413), anom = c(0.820287105396386, 0.897833312663238,
0.925795519832683, 0.826852283938926, 0.761272325064239, 1.01839068062701,
0.725038641741477, 0.871226511754963, 0.950657430049865, 0.804536108948638,
0.874400775857991)), row.names = c(NA, -11L), class = c("tbl_df",
"tbl", "data.frame"), .Names = c("year", "ppt", "anom"))
Код:
qplot(year, anom, data = df, geom="smooth", main = "Precipitaion ", ylab = "Anomaly", xlab = "", scale_x_continuous(breaks=seq(1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940), labels = c("1930", "1931", "1932", "1933", "1934", "1935", "1936", "1937", "1938", "1939", "1940")))
Выход:
вариант 1: сделать их факторы; вариант 2: сделать их персонажами; вариант 3: преобразовать их в фактические 'Date'. – hrbrmstr
С года числовое, вы можете установить разрывы следующим образом: 'ggplot (df, aes (year, anom)) + geom_smooth() + scale_x_continuous (breaks = seq (1930,1940,2))'. Я установил главный интервал в 2, но вы можете, конечно, настроить его на все, что захотите. – eipi10