Trying to make a segment graph in ggplot2, geting an error; no applicable method for 'rescale&#-CodePudding

I am trying to create a plot in ggplot2 showing the results of environmental sampling conducted over time. My data set has deployment and retrieval dates for samplers and the result of PCR on the end product. I want to make a graph with a line for each deployment so that he width is the duration (deploy to retrieve) and the vertical height is the Value.

      Deploy   Rertieve     Value
1 2021-08-29 2021-08-31  341.6431
2 2021-08-31 2021-09-02  259.8241
3 2021-09-02 2021-09-05  558.5531
4 2021-09-05 2021-09-07  872.5043
5 2021-09-07 2021-09-09 6130.8452
6 2021-09-10 2021-09-12 2655.0765

This is the code I used:

#Recreate the data frame above
sampling.dat <- structure(list(Deploy = structure(c(18868, 18870, 18872, 18875, 18877, 18880), class = "Date"), 
               Rertieve = structure(c(18870, 18872, 18875, 18877, 18879, 18882), class = "Date"), 
               Value = c(341.6431298, 259.824122, 558.5530897, 872.5042542, 6130.845229, 2655.076504)), 
          row.names = 1:6, class = "data.frame")

#Create the plot
Segment.plot <- ggplot(data = sampling.dat)  
  geom_segment(x="Deployment", y="Value", xend="Retrieve", yend="Value")
Segment.plot

When I run the code for the figure I get an error:

Error in `geom_segment()`:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `UseMethod()`:
! no applicable method for 'rescale' applied to an object of class "character"
Run `rlang::last_error()` to see where the error occurred.

None of the data used in the graph is in "character" class, all are either date or numeric.

This came from a larger file with lots of extra columns which I thought might be an issue. I created a new data frame (and a new .csv file) using just the relevant dates and numbers, but got the same errors.

CodePudding user response：

Use aes(..) using symbols.
Names do not match, perhaps typos in the question, but it's hard to know for sure.

Data, with updated names:

sampling.dat <- structure(list(Deployment = structure(c(18868, 18870, 18872, 18875, 18877, 18880), class = "Date"), Retrieve = structure(c(18870, 18872, 18875, 18877, 18879, 18882), class = "Date"), Value = c(341.6431298, 259.824122, 558.5530897, 872.5042542, 6130.845229, 2655.076504)), row.names = c(NA, 6L), class = "data.frame")

Code, fixed:

ggplot(data = sampling.dat)  
  geom_segment(aes(x=Deployment, y=Value, xend=Retrieve, yend=Value))

If you need (or prefer) to use strings (i.e., programmatic use), then you can use the .data[[..]] method, described here:

ggplot(data = sampling.dat)  
  geom_segment(aes(x = .data[["Deployment"]], y = .data[["Value"]], 
                   xend = .data[["Retrieve"]], yend = .data[["Value"]]))

The strength of this is when you have variables defining which columns to use, as in col <- "Deployment" and then aes(x=.data[[col]], ...). (.data$Deployment also works, though defeats the notion of programmatic use.)