用于从表或数据框中拾取值的函数

Question

CROP_CODE_MODEL WWHT WBAR SBAR WBEA SBEA WPOT WOSR SOSR LNSE DPEA SBEE SETA
NFERT_AMT        51   61   66   71   76   81   86   91   96  101  106  111
NFERT_PRICE      1    1    1    1    1    1    1    1    1    1    1    1
PFERT_AMT        51   61   66   71   76   81   86   91   96  101  106  111
PFERT_PRICE      1    1    1    1    1    1    1    1    1    1    1    1
KFERT_AMT        51   61   66   71   76   81   86   91   96  101  106  111
KFERT_PRICE      1    1    1    1    1    1    1    1    1    1    1    1

我有下面的数据，并且我正在尝试编写一个函数，以便在提供裁剪名称和输入名称时，可以选取或选择相应的值。

例如，我想要写这样的代码

Nfertamt <- function(crop, Nfert)  

因此将选择“小麦”和“氮肥”的相应值"WWHT“和"NFERT_AMT”(51)。

Answer 1

你不需要一个函数，你只需要设置你想要的行和列的子集：

my.data["NFERT_AMT","WWHT"]

如下所示：

> df <- data.frame(a=1:10, b=11:20)
> df[3, 2]
> [1] 13