如下面两列数据，求在x2为f时，x1取最大值所对应的行号。答案应该是6.   请问R里面，如何编程求得？
data <- data.frame(x1 = c(7, 8, 1, 4, 0, 5),  
         x2 = c("a", "b", "f", "d", "f", "f"))
data
  x1 x2
1  7  a
2  8  b
3  1  f
4  4  d
5  0  f
6  5  f
--
FROM 129.120.103.*