如何优雅地重新编码包含多个值的多个列

如何解决如何优雅地重新编码包含多个值的多个列

我有一个包含连续数据和分类数据的数据框。

df<- data.frame(gender=c("male","female","transgender"),education=c("high-school","grad-school","home-school"),smoke=c("yes","no","prefer not tell"))
> print(df)
       gender   education           smoke
1        male high-school             yes
2      female grad-school              no
3 transgender home-school prefer not tell
> str(df)
'data.frame':   3 obs. of  3 variables:
 $ gender   : chr  "male" "female" "transgender"
 $ education: chr  "high-school" "grad-school" "home-school"
 $ smoke    : chr  "yes" "no" "prefer not tell"

我正在尝试将分类列重新编码为名义格式。我当前的方法非常繁琐。 首先,我必须将所有字符变量转换为因子格式,

# Coerce all character formats to Factors
df<- data.frame(df[sapply(df,is.character)] <-
  lapply(df[sapply(df,is.character)],as.factor))

library(plyr)
df$gender<- revalue(df$gender,c("male"="1","female"="2","transgender"="3"))
df$education<- revalue(df$education,c("high-school"="1","grad-school"="2","home-school"="3"))
df$smoke<- revalue(df$smoke,c("yes"="1","no"="2","prefer not tell"="3"))
> print(df)
  gender education smoke
1      1         1     1
2      2         2     2
3      3         3     3

是否有更优雅的方法来解决此问题?遵循tidyverse风格的做法会有所帮助。我已经见过类似的问题,例如123。这些解决方案的问题是它们与我寻求的内容无关,或者它们使用诸如lapply()sapply()之类的基本R方法,这对我来说很难解释。我也想知道是否有一种优雅的方法可以按照tidyverse方法将所有字符变量转换为因子格式。

解决方法

尝试一下。只需考虑一下我们正在使用mutate()across()两次,以便首先将值转换为因数,然后按它们在每个变量(unique())中的显示方式进行排序,然后将数字端与as.numeric()提取值。这里的代码:

library(tidyverse)
#Code
df %>% mutate(across(gender:smoke,~factor(.,levels = unique(.)))) %>%
  mutate(across(gender:smoke,~as.numeric(.)))

输出:

  gender education smoke
1      1         1     1
2      2         2     2
3      3         3     3

为了确定新值的分配方式,您可以使用以下方法:

#Code 2
df %>% summarise_all(.funs = unique) %>% pivot_longer(everything()) %>%
  arrange(name) %>%
  group_by(name) %>% mutate(Newval=1:n())

输出:

# A tibble: 9 x 3
# Groups:   name [3]
  name      value           Newval
  <chr>     <fct>            <int>
1 education high-school          1
2 education grad-school          2
3 education home-school          3
4 gender    male                 1
5 gender    female               2
6 gender    transgender          3
7 smoke     yes                  1
8 smoke     no                   2
9 smoke     prefer not tell      3

或者可能需要更多控制:

#Code 3
df %>% mutate(id=1:n()) %>% pivot_longer(-id) %>%
  left_join(df %>% summarise_all(.funs = unique) %>% pivot_longer(everything()) %>%
              arrange(name) %>%
              group_by(name) %>% mutate(Newval=1:n()) %>% ungroup()) %>%
  select(-value) %>%
  pivot_wider(names_from = name,values_from=Newval) %>%
  select(-id)

输出:

# A tibble: 3 x 3
  gender education smoke
   <int>     <int> <int>
1      1         1     1
2      2         2     2
3      3         3     3

如果您的变量属于character类,则可以使用此管道从字符转换为因数,然后重新组织因数,然后使其成为数字:

#Code 4
df %>% 
  mutate(across(gender:smoke,~as.factor(.))) %>%
  mutate(across(gender:smoke,~as.numeric(.)))

输出:

  gender education smoke
1      1         1     1
2      2         2     2
3      3         3     3
,

您可以将数据中的“字符和因子”列转换为数字,从而根据每个级别在数据中的出现为每个级别赋予唯一值。

library(dplyr)

df %>% 
  mutate(across(where(~is.character(.) | is.factor(.)),~match(.,unique(.))))

#  gender education smoke
#1      1         1     1
#2      2         2     2
#3      3         3     3
,

Base R解决方案:

lapply(df,function(x){
    if(is.character(x) | is.factor(x)){
      x <- as.integer(labels(as.factor(x)))
    }else{
      x
    }
  }
)

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-