Skip to main content
Resposta editada para responder a pergunta do OP nos comentários.
Fonte Link
Marcus Nunes
  • 19mil
  • 9
  • 32
  • 59

Com o data frame ajeitado, basta usar o comando filter do pacote dplyr para atingir o resultado desejado, isto é, selecionar as linhas com os produtos MANDIOCA MÉDIA e TOMATE ACHATADO-REDOND, com classificações MEDIA e EXTRA A, respectivamente.

library(dplyr)

filter(legumes, Produto=="MANDIOCA(Produto=="MANDIOCA" MÉDIA"& Classificação=="MEDIA") |
  (Produto=="TOMATE ACHATADO-REDOND" & Classificação=="EXTRA A"))
                 Produto Classificação Comun Quilo
1 TOMATE ACHATADO-REDOND     EXTRA AAA  3,05     1
2 TOMATEMANDIOCA ACHATADO-REDOND      EXTRA AA MEDIA  21,583     1
32 TOMATE ACHATADO-REDOND       EXTRA A     2     1

Aparentemente, este conjunto de dados não possui o produto MANDIOCA MÉDIA cadastrado nele.

Com o data frame ajeitado, basta usar o comando filter do pacote dplyr para atingir o resultado desejado, isto é, selecionar as linhas com os produtos MANDIOCA MÉDIA e TOMATE ACHATADO-REDOND.

library(dplyr)

filter(legumes, Produto=="MANDIOCA MÉDIA" | Produto=="TOMATE ACHATADO-REDOND")
                 Produto Classificação Comun Quilo
1 TOMATE ACHATADO-REDOND     EXTRA AAA  3,05     1
2 TOMATE ACHATADO-REDOND      EXTRA AA   2,5     1
3 TOMATE ACHATADO-REDOND       EXTRA A     2     1

Aparentemente, este conjunto de dados não possui o produto MANDIOCA MÉDIA cadastrado nele.

Com o data frame ajeitado, basta usar o comando filter do pacote dplyr para atingir o resultado desejado, isto é, selecionar as linhas com os produtos MANDIOCA e TOMATE ACHATADO-REDOND, com classificações MEDIA e EXTRA A, respectivamente.

library(dplyr)

filter(legumes, (Produto=="MANDIOCA" & Classificação=="MEDIA") |
  (Produto=="TOMATE ACHATADO-REDOND" & Classificação=="EXTRA A"))
                 Produto Classificação Comun Quilo
1               MANDIOCA         MEDIA  1,83     1
2 TOMATE ACHATADO-REDOND       EXTRA A     2     1
Fonte Link
Marcus Nunes
  • 19mil
  • 9
  • 32
  • 59

Em primeiro lugar, eu faria uma pequena limpeza no teu conjunto de dados legumes. Note que o cabeçalho não tem nomes com significado intuitivo e a primeira linha dele possui algo que poderia substituir este cabeçalho:

head(legumes)
               NULL.V1       NULL.V2 NULL.V5 NULL.V7
1              Produto Classificação   Comun   Quilo
2     ABOBORA JAPONESA             -    1,54       1
3         ABOBORA SECA             -    1,46       1
4      ABOBORA MORANGA             -    1,21       1
5     ABOBORA PAULISTA             -    1,49       1
6 ABOBRINHA BRASILEIRA      EXTRA AA    2,25       1

Os dois comandos abaixo resolvem este problema:

names(legumes) <- as.character(unlist(legumes[1, ]))
legumes <- legumes[-1, ]
head(legumes)
               Produto Classificação Comun Quilo
2     ABOBORA JAPONESA             -  1,54     1
3         ABOBORA SECA             -  1,46     1
4      ABOBORA MORANGA             -  1,21     1
5     ABOBORA PAULISTA             -  1,49     1
6 ABOBRINHA BRASILEIRA      EXTRA AA  2,25     1
7 ABOBRINHA BRASILEIRA       EXTRA A  1,97     1

O fato da primeira linha agora ser identificada com o número 2 não é um problema neste caso.

Com o data frame ajeitado, basta usar o comando filter do pacote dplyr para atingir o resultado desejado, isto é, selecionar as linhas com os produtos MANDIOCA MÉDIA e TOMATE ACHATADO-REDOND.

library(dplyr)

filter(legumes, Produto=="MANDIOCA MÉDIA" | Produto=="TOMATE ACHATADO-REDOND")
                 Produto Classificação Comun Quilo
1 TOMATE ACHATADO-REDOND     EXTRA AAA  3,05     1
2 TOMATE ACHATADO-REDOND      EXTRA AA   2,5     1
3 TOMATE ACHATADO-REDOND       EXTRA A     2     1

Aparentemente, este conjunto de dados não possui o produto MANDIOCA MÉDIA cadastrado nele.