Ответ 1
Обновление в свете уточненного Q
set.seed(1)
dat2 <- data.frame(fac = factor(sample(LETTERS, 100, replace = TRUE)))
hist(table(dat2), xlab = "Frequency of Level Occurrence", main = "")
дает:
Здесь мы просто применяем hist()
непосредственно к результату table(dat)
. table(dat)
обеспечивает частоты на уровень фактора и hist()
создает гистограмму этих данных.
Оригинал
Существует несколько возможностей. Ваши данные:
dat <- data.frame(fac = rep(LETTERS[1:4], times = c(3,3,1,5)))
Вот три, начиная с первого столбца, сверху вниз:
- Способы построения по умолчанию для класса
"table"
, вырезают данные и гистограммные столбцы - Строка бар - это, вероятно, то, что вы имели в виду под гистограммой. Обратите внимание на низкое соотношение чернил и информации здесь.
- Точечный график или диаграмма точек; показывает ту же информацию, что и другие графики, но использует гораздо меньше чернил на единицу информации. Предпочтительные.
Код для их создания:
layout(matrix(1:4, ncol = 2))
plot(table(dat), main = "plot method for class \"table\"")
barplot(table(dat), main = "barplot")
tab <- as.numeric(table(dat))
names(tab) <- names(table(dat))
dotchart(tab, main = "dotchart or dotplot")
## or just this
## dotchart(table(dat))
## and ignore the warning
layout(1)
это дает:
Если у вас есть только ваши данные в переменной factor
(выбор неправильного имени кстати), то в моих примерах кода можно использовать table(factor)
, а не table(dat)
или table(dat$fac)
.
Для полноты пакет lattice
более гибкий, когда дело доходит до создания точечного графика, поскольку мы можем получить желаемую ориентацию:
require(lattice)
with(dat, dotplot(fac, horizontal = FALSE))
даяние:
И версия ggplot2
:
require(ggplot2)
p <- ggplot(data.frame(Freq = tab, fac = names(tab)), aes(fac, Freq)) +
geom_point()
p
даяние: