R Notebook

packages

library(googlesheets4)
library(ggplot2)

gs4_deauth()
hoja= "FV.weights.3"
rango = "C1:I1408"

weight <- read_sheet(ss,
                    sheet= hoja,
                    range= rango,
                    col_names= TRUE,
                    na=
                    )

Reading from "Fish"
Range "'FV.weights.3'!C1:I1408"

str(weight)

tibble [1,407 x 7] (S3: tbl_df/tbl/data.frame)
 $ Pez    :$ TANQUE : num [1:1407] 3 3 3 3 3 3 3 3 3 3 ...
 $ DIETA  : $ Pit_Tag: num [1:1407] 350889 381066 381527 516035 516630 ...
 $ FECHA  : POSIXct[1:1407], format:  ...
 $ PESO    ...
 $ LARGO  : num [1:1407] 62 59 61 62 64 63 63 61 64 61 ...

Pesos TimeSeries

ggplot(aes(x=as.factor(FECHA), y=PESO, fill=DIETA), data= weight) + geom_boxplot()

Warning: Removed 4 rows containing non-finite values (stat_boxplot).