# cargando base de datos de ejemplo library(tidyverse) df1<- read.csv("fruits.txt", sep="") df1
Fruit Cost 1 apple 6 2 apple 7 3 orange 3 4 orange 4
l…