R显式下标函数

Question

我正在寻找R中下标元素的显式函数，比如说subscript(x,i)表示x[i]。

我需要这个的原因是使用dplyr和magrittr管道运算符回溯到一段代码，管道运算符不是管道，我需要除以每列的第一个元素。

pipedDF <- rawdata %>% filter, merge, summarize, dcast %>%
   mutate_each( funs(./subscript(., 1) ), -index) 

我认为这样可以解决问题并保留人们喜欢的管道语法。

没有dplyr，它看起来就像这样......

示例，

> df
  index    a   b c
1     1 6.00 5.0 4
2     2 7.50 6.0 5
3     3 5.00 4.5 6
4     4 9.00 7.0 7

> data.frame(sapply(df, function(x)x/x[1]))
  index    a   b    c
1     1 1.00 1.0 1.00
2     2 1.25 1.2 1.25
3     3 0.83 0.9 1.50
4     4 1.50 1.4 1.75

  

Answer 1

您应该可以使用'['，如

x<-5:1
'['(x,2)
# [1] 4