[R] Mutate issue help needed

[Bruce Miller]

Hi all,

It has been a year or so since I have run this code to plot temporal 
activity.
It was working now I am getting an error related to MUTATE.

Error in UseMethod("mutate") :
   no applicable method for 'mutate' applied to an object of class 
"character"
Any help/suggestions welcomed.
Tnx to all the R code gurus out there.
R v 4.4.0

Bat Dude

The saved code I used is below.  Perhaps a package has changed since I 
last ran this?
++++++++++++++++++++++++

library(lubridate) *#date functions come from here*

library(tidyverse) *# dplyr and ggplot2 from here*

*setwd("T:\\Hondurus\\Temporal")*

*library(ggplot2); theme_set(theme_bw())#Works well*

*fname <- "Buzz.txt"*

#First assign data set to All with All<- *dataset*

All<- *fname *

# This uses Night and Time for X-Y labels

  evening <- function(datetime) {

update(datetime

, yday = yday(datetime) - if_else(am(datetime), 1, 0)

, hour = 17 *#Definedfor 17:00*

, minute = 0

, second = 0

)

}

*# Create labels and corresponding breaks for the time in seconds from 1700*

label_hours = c("17:00", "18:00", "19:00", "20:00", "21:00", "22:00", 
"23:00", "00:00", "01:00", "02:00", "03:00", "04:00", "05:00", "06:00")

break_hours = c(0, 1:13*3600)

*# Fix the data column, combine the date and hour/min, and calculate the 
elapsed time from #1700 in seconds*

  polished <-

All %>%

mutate(*#convert Date from chr to Date*

Date = as.Date(Date, "%m/%d/%Y")

*#combine day and hour/min including **UTC*

, datetime = as.POSIXct(paste(Date, Time, sep = " ","%Y-%m-%d %H:%M"), 
tz = "UTC")

*#Now calculate the number of seconds since the start of the evening*

, evening = evening(datetime)

, Night = format(as.Date(evening), "%b %d, %Y")

, Time = as.double(datetime - evening, "secs")

)

*Error in UseMethod("mutate") :
   no applicable method for 'mutate' applied to an object of class 
"character"*

ggplot(polished, aes(x =Night, y = Time, colour = Species)) +

#geom_jitter() +

geom_point()+

*scale_colour_hue(l=40)+*

ggtitle(label = 'Feeding buzz temporal activity')+

facet_grid(. ~ Night) +facet_wrap(facets = ~Species)+

scale_y_continuous(labels = label_hours, breaks = break_hours) +

theme(axis.text.x = element_text(angle = 270))


	[[alternative HTML version deleted]]