Question

我在为数据帧编写函数时遇到了两个问题。我经常得到一个包含2个变量的数据框，我想将它们重新编码为一个变量。

If V1>0 and V2 <0 then new_variable = "V1>0, V2<0.

在所有数据帧中，我都有V1和V2有不同的名称。

问题1。我不知道为什么test_df $ newVar，在这个函数之后只得到“C＆gt; 0，I＆gt; 0”

#Using test FUN on example data frame
    test_df.afterFUN <- test_fun(test_df, var1 = "V1", var2 = "V2", newVar = "category")

问题2。为什么这个函数“newVar”的最后一个参数不会将名称更改为“类别”？如果我运行这个函数的代码适合单个数据框（重命名变量等），它将工作并给我我想要的东西（看看test_df2）

rm(list = ls())
    library("dplyr") # for filter
    # Preparing example data frame
    rama <- rbind(c(-5:20, -20:5), c(-20:5, -5:20))
    rama <- t(rama)
    colnames(rama) <- c("V1", "V2")
    test_df <- as.data.frame(rama)

#Test FUN

test_fun <- function(df, var1, var2, newVar) {
  df1 <- filter(df, var1 == 0, var2 == 0)
  df1  <- mutate(df1, newVar = "C=0, I=0")
  df2 <- filter(df, var1 == 0, var2  > 0)
  df2  <- mutate(df2, newVar = "C=0, I>0")
  df3 <- filter(df, var1 == 0, var2  < 0)
  df3  <- mutate(df3, newVar =  "C=0, I<0")
  df4 <- filter(df, var1 >  0, var2 == 0)
  df4  <- mutate(df4, newVar =  "C>0, I=0")
  df5 <- filter(df, var1 >  0, var2  > 0)
  df5  <- mutate(df5, newVar =  "C>0, I>0")
  df6 <- filter(df, var1 >  0, var2  < 0)
  df6  <- mutate(df6, newVar =  "C>0, I<0")
  df7 <- filter(df, var1 <  0, var2 == 0)
  df7  <- mutate(df7, newVar =  "C<0, I=0")
  df8 <- filter(df, var1 <  0, var2 >  0)
  df8  <- mutate(df8, newVar =  "C<0, I>0")
  df9 <- filter(df, var1 <  0, var2 <  0)
  df9  <- mutate(df9, newVar =  "C<0, I<0")
   df <- rbind(df1, df2, df3, df4, df5, df6, df7, df8, df9)
   return(df)
    }

    #Using test FUN on example data frame
    test_df.afterFUN <- test_fun(test_df, var1 = "V1", var2 = "V2", newVar = "category")

    # Procedure outside of funcion fitted to test_df
    df1 <- filter(test_df, V1 == 0, V2 == 0)
    df1  <- mutate(df1, newVar = "C=0, I=0")
    df2 <- filter(test_df, V1 == 0, V2  > 0)
    df2  <- mutate(df2, newVar = "C=0, I>0")
    df3 <- filter(test_df, V1 == 0, V2  < 0)
    df3  <- mutate(df3, newVar =  "C=0, I<0")
    df4 <- filter(test_df, V1 >  0, V2 == 0)
    df4  <- mutate(df4, newVar =  "C>0, I=0")
    df5 <- filter(test_df, V1 >  0, V2  > 0)
    df5  <- mutate(df5, newVar =  "C>0, I>0")
    df6 <- filter(test_df, V1 >  0, V2  < 0)
    df6  <- mutate(df6, newVar =  "C>0, I<0")
    df7 <- filter(test_df, V1 <  0, V2 == 0)
    df7  <- mutate(df7, newVar =  "C<0, I=0")
    df8 <- filter(test_df, V1 <  0, V2 >  0)
    df8  <- mutate(df8, newVar =  "C<0, I>0")
    df9 <- filter(test_df, V1 <  0, V2 <  0)
    df9  <- mutate(df9, newVar =  "C<0, I<0")
    test_df2 <- rbind(df1, df2, df3, df4, df5, df6, df7, df8, df9)

Answer 1

这可能写得更好，但请尝试：

sign

<强>解释

我们使用revalue(factor),c())来获取列中每个数字的符号（返回-1,0或1）。然后我们将这些数字重写为字符串＆＃34;＆lt; 0＆＃34;，＆＃34; = 0＆＃34;和＆＃34;＆gt; 0＆＃34;使用sapply。我们使用test_df将其应用于paste的两列。这将返回一个字符矩阵。然后，我们将test_df$category应用于每一行，以获得所需的字符向量。最后，我们将该向量分配给In My cron file , $img_file = file_get_contents($value1); $file_handler = fopen($file_loc,'w'); if(fwrite($file_handler,$img_file)== false) { echo 'error'; } fclose($file_handler);。

R：将2个变量重新编码为1个内部函数

1 个答案: