r - 如何创建 R 字典
问题描述
我有以下数据(见df)
data=data.frame(v1=c("traf","hayr", "poaz", "adfv", "srta"))
dup=rep(2,nrow(data))
id=rep(1:nrow(data), dup)
dupdf=data[id,]
dupdf2=as.data.frame(dupdf)
df=dupdf2 %>%
mutate(col1 = if_else(row_number() %% 2 == 0, paste(dupdf, "_var"), dupdf)) %>%select(-dupdf)
> df
col1
1 traf
2 traf _var
3 hayr
4 hayr _var
5 poaz
6 poaz _var
7 adfv
8 adfv _var
9 srta
10 srta _var
我想在 R 中创建一个 Python 等效字典,在 Python 中看起来像这样
{'traf':1,
'traf _var':1,
'hayr':2,
'hayr _var'=2,
'poaz'=3,
'poaz _var'=3,
'adfv'=4,
'adfv _var'=4,
'srta'=5,
'srta _var'=5}
我已经看到最好的方法是使用列表,但我不知道如何进行。
请注意,在我的真实数据中,我有 130 条不同的行(65 个不同的值)。
任何帮助表示赞赏
解决方案
推荐阅读
- vagrant - 尝试使用 Docker Swarm 将工作人员添加到管理器但收到“Swarm:错误”
- reactjs - React.js 成功登录后渲染 App.js
- linux - 无法使用 DPDK 捕获 VLAN 标记的数据包
- php - 如何从选定的循环复选框中获取值?
- java - Android - 导航抽屉 - 与动态菜单项重叠的片段
- javascript - 在没有 setState 的情况下动态设置 react slick autoplayspeed
- pytorch - MNIST CNN 输出错误 = 模型(图像)
- javascript - 传单,折线数组上的动画标记(JS)
- git - 工作流程:带有功能分支、变基、拉取请求的 git(非开源项目)
- php - 未定义的方法数据库\工厂\ Laravel 8