объединяя гистограммы в R

Question

Я пытаюсь составить гистограмму, используя базис c R. Гистограмма отлично справляется с представлением данных. Тем не менее, я хочу объединить несколько столбцов с правой стороны (от 300 000 +) (здесь это изображение введите описание изображения здесь ) в один столбец для представления их значений.

hist(TotalIncomeRural$D21, breaks ="sturges", labels = TRUE,
       xaxt='n', ylim=c(0,1350), col = "red")
axis(side=1, at=c(seq(0,1500000,100000)))

любая помощь очень ценится.

Редактировать: я покажу, что я хочу сделать с гистограммой: предположим, у меня есть эти данные и функция исторических данных:

x<-c(1,3,5,6,8,9,10,11,13,15,1,3,8,10,1,6,8,2,0, 2,5,3,8,5,5,1,0,0,0,0,3,6,5,8,10,12,16,18, 9, 8,1,1,1,0,5,5,5,6)
hist(x)

, когда я Запустите эту новую гистограмму. Я хотел бы объединить все значения выше 10 в одну корзину, чтобы представить их (я прилагаю изображение здесь).

Answer 1

Вы можете указать разрывы и метки осей:

hist( TotalIncomeRural$D21, 
      breaks = c(0:3, 16) * 100000,
      ylim = c(0, 1350),
      xlim = c(0, 400000),
      freq = T,
      xaxt = "n",
      col = "red")

axis( side = 1, 
      at = (0:3 +.5) * 100000, 
      tick = F,
      labels = c("\n< $100,000\n ", 
                 "\n$100,000 -\n$200,000", 
                 "\n$200,000 -\n$300,000", 
                 "\n> $300,000\n "))

Я пытался имитировать c ваши исходные данные, например так:

set.seed(69)
TotalIncomeRural <- data.frame(D21 = rexp(2000)^1.3 * 100000)

Если бы вы захотели, вы могли бы иметь одну большую широкую полосу справа, изменив xlim оси, но тогда метки не поместились бы так же хорошо (и область гистограммы). было бы неправильно)