在R中找到一个范围，然后将其替换为中位数

Question

我有一个称为data_v的数据，其中一列是薪水。数据范围在0到140 000之间。我想找到不同的范围（范围1：0-10000，范围2：10000-20000 ...）计算每个范围的中位数并用其中位数替换范围。

使用此功能，我能够获得所需的输出：

first = data_v$salaries[data_v$salaries>=0 & data_v$salaries<10000]
data_v$salaries[data_v$salaries>=0 & data_v$salaries<10000] = median(first)
second = data_v$salaries[data_v$salaries>=10000 & data_v$salaries<20000]
data_v$salaries[data_v$salaries>=10000 & data_v$salaries<20000] = median(second)

......................

ten=data_v$salaries[data_v$salaries>=90000 & data_v$salaries<=100000]
data_v$salaries[data_v$salaries >= 90000 & data_v$salaries <= 100000] = median(ten)

输出：

table(data_v$salaries)
median 7949    17523    25939    34302    42827    56840    65423  73292    81900      95479.75
#      130     2022     8481     9233     2661     1270     3864     2232      176        4 

我试图在没有成功的情况下与循环时实现相同的事情：

 i <- 0;
while(i <=140000) {
  m = data_v$salaries[data_v$salaries >= i & data_v$salaries < (i + 10000)] 
  data_v$salaries[data_v$salaries >= i & data_v$salaries < (i + 10000)] =   median(m)
  i <- i + 10000; }

任何帮助/建议更受欢迎。

Answer 1

data(mtcars) # data for test
step = 10 # interval length, 10000 for your data
n = ceiling(max(mtcars$mpg)/step)  # number of intervals
mtcars$mpg_interval = cut(mtcars$mpg, step*(0:n))
mtcars$mpg_median = ave(mtcars$mpg, mtcars$mpg_interval, FUN = median)