Как применять функцию столбца в кадре R и вывода данных магазина в одном dataframe

Question

У меня есть кадр данных, как этот

set.seed(12) 
df=data.frame(a=runif(20,-100,100),b=rep(c("a","b"),10)) 

Теперь мне нужно, чтобы выяснить, какой% от значений в столбце «а» которые имеют абсолютное значение < п, п является переменной: 10, 20, 30, 40, 50, и выводят результат в кадр данных, как этот

n    10 20 30 40 50 
% in the range 12% 14% 27% 40% 50% 

Answer 1

Вот способ вернуть кадр данных

# get a named vector of values 
myValues <- setNames(seq(10, 50, 10), seq(10, 50, 10)) 
# return result 
data.frame(lapply(myValues, function(x) sum(abs(df$a) < x)/nrow(df))) 
X10 X20 X30 X40 X50 
1 0.1 0.15 0.35 0.4 0.5 

Это еще проще вернуть именованный вектор с той же информацией.

myPropVec <-sapply(myValues, function(x) sum(abs(df$a) < x)/nrow(df)) 
myPropVec 
    10 20 30 40 50 
0.10 0.15 0.35 0.40 0.50 

Несложно построить названный вектор в виде гистограммы:

barplot(myPropVec) 

Или с помощью dotchart:

dotchart(myPropVec) 

Answer 2

для результата списка:

n <- seq(10,50, by = 10) 
list <- lapply(n, function(x) percent(sum(abs(df$a) < x)/nrow(df))) 
setNames(list, n) 

для кадра данных:

df <- do.call(rbind, list) 

Answer 3

Что-то подобное может работать, чтобы дать вы векторный выход

n<-seq(10,50,10) 

perc<-vector() 

for(i in 1:5) {perc[i]<-sum(abs(df$a)<n[i])/length(df$a)} 

perc 
[1] 0.10 0.15 0.35 0.40 0.50