Форумы GIS-Lab.info

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

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)