Код: Выделить всё
library(ggplot2)
ggplot(data=cars) +
geom_histogram(aes(x=dist),
fill = "#E74102",
col = "grey90") +
geom_label(x=cars$dist, y=2, label="1")
Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
Код: Выделить всё
library(ggplot2)
ggplot(data=cars) +
geom_histogram(aes(x=dist),
fill = "#E74102",
col = "grey90") +
geom_label(x=cars$dist, y=2, label="1")
Код: Выделить всё
v <- as.data.frame(table(cars$dist))
barplot(v$Freq ~ v$Var1, width = 0.85)
text(v$Var1, v$Freq, labels = v$Freq)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 3 гостя
© GIS-Lab и авторы, 2002-2017. При использовании материалов сайта, ссылка на GIS-Lab и авторов обязательна. Содержание материалов - ответственность авторов (подробнее).