R语言如何些循环代码提取特定数值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助各位大神们！！！

我有一个食物营养素的数据表，想根据中国，日本，美国，英国的优先顺序来取值（对应的营养素，中国的数值为0或为空值时，则取日本的数值；日本的数值为0或为空值时，取美国的数值；美国的数值为0或为空值时；取英国的数值），并标注每个数值的国家来源，四个国家均没有时则标记为0。。。感觉需要写循环代码，本人是最不会写循环代码的了，如果用excel来弄又特别繁琐，而且变量很多。。希望路过的好心人帮忙看看~~~ 图的左边是原始数据，右边是想达到的效果

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 用excel EXCEL exce xcel

library(tidyverse);library(magritter)
data%>%arrange(fcn,COUNTRY)%>%filter(Vit_B6!=0)%>%group_by(fcn,COUNTRY)%>%mutate(Vit_B6_1=first(Vit_B6))%>%ungroup()->
data1

错了一个字符，下面这个是对的

library(tidyverse);library(magritte)
data%>%arrange(fcn,COUNTRY)%>%filter(Vit_B6!=0)%>%group_by(fcn,COUNTRY)%>%mutate(Vit_B6_1=first(Vit_B6))%>%ungroup()->
data1

nieqiang110 发表于 2021-12-17 15:23
错了一个字符，下面这个是对的

library(tidyverse);library(magritte)

你好，每种食物有4条数据，理想的结果是最后每个食物只保留一个国家的数据，跑了您的代码实现不了，数据的条数不对，好像就是把值为0的去掉了，我还希望能再生成一列，显示出取的数据的国家来源

楼上的答案其实差不多了，国家的排序可能需要多一个factor(levels = )的函数来完成，这里不细说，后面的我觉得是group的时候不需要纳入country，且既然已经按国家排序并去掉了0，直接slice取第一行即可
library(tidyverse);library(magritte)
data %>% arrange(fcn,COUNTRY)%>%filter(Vit_B6!=0)%>%group_by(fcn)%>%slice(1)%>%ungroup()->
data1

setwd("D:\\Vit_B")
rm(list=ls(all=TRUE))

if (!require("pacman", character.only = T, quietly = T)) {
  install.packages("pacman")
  library(pacman,character.only = T)
}
pacman::p_load(tidyverse,rio,magrittr,writexl)

rio::import(file="D:\\Vit_B\\data.xlsx") %>%
  mutate_at(.,vars(Vit_B6,Vit_B12),~replace(.,is.na(.),0)) %>%
  mutate(COUNTRY=ordered(COUNTRY,levels=c("CN","JP","UK","US"))) ->data
  #ordered factor
data %>% filter(Vit_B6!=0) %>%
  group_by(fcn) %>%
  summarise(.,Vit_B6_1=first(Vit_B6)) %>% ungroup %>%
  left_join(data) %>%
  filter(Vit_B6_1==Vit_B6)->Vit_B6_1

data %>% filter(Vit_B12!=0) %>%
  group_by(fcn) %>%
  summarise(.,Vit_B12_1=first(Vit_B12)) %>% ungroup %>%
  left_join(data) %>%
  filter(Vit_B12_1==Vit_B12)->Vit_B12_1

rio::import(file="D:\\Vit_B\\data.xlsx") %>%
  select(fcn) %>% distinct->fcn

fcn %>% left_join(Vit_B6_1) %>% left_join(Vit_B12_1) %>%
  mutate_at(.,vars(Vit_B6_1,Vit_B12_1),~replace(.,is.na(.),0)) %>%
  mutate(COUNTRY2="CN") %>%
  select(fcn,COUNTRY,Vit_B6_1,COUNTRY2,Vit_B12_1)->
  data_F

rio::export(data_F,file="D:\\Vit_B\\data_F.xlsx")
rio::export(x=data_F,which="data_F",
            file="D:\\Vit_B\\data.xlsx")

rm(list=ls())

我回复了，还在审核，数据、代码全都有，这次没问题了

我秃头了 发表于 2021-12-17 16:33
你好，每种食物有4条数据，理想的结果是最后每个食物只保留一个国家的数据，跑了您的代码实现不了，数据的 ...

我重新回复了，数据、代码全都有，还在审核中

nieqiang110 发表于 2021-12-17 21:16
setwd("D:\\Vit_B")
rm(list=ls(all=TRUE))

那个，，星爷大神，其实我的数据包含了100多种营养素，不止我图片里的这两种，想写一个循环代码，一次就能跑完所有的营养素，然后每种营养素包含取值和国家两列，全都放在一张大表里，这就是我一开始想写循环的目的。单个营养素我自己也能捣鼓出来，就是不会写循环把他们一次全跑完，放到一张大表里。这个能实现吗？会不会很难？怪我一开始没说清楚

没问题的，不要迷信循环，我们做的都是大样本数据。你不提供原始数据，不给出具体问题。没办法