Plot function issue - adding a line
My goal is to plot a line (red) using the plot function. This is what I have tried so far.
data("Nile")
plot(Nile)
fm0 <- lm(Nile ~ 1) ; summary(fm0)
y1 <- c(rep(1097.75, 20), rep(848.9722, 80))
# Plot
lines(fitted(fm0), col = "blue", lty = "dotted", lwd = 1)
lines(y1, time(Nile), col = "red", lwd = 2)
The line in red color is not showing. Not sure where I am going wrong.
Expecting a plot like this
Solution
Ah, so you're looking for what @MrFlick suggested above.
data("Nile")
plot(Nile)
fm0 <- mean(Nile)
y1 <- c(rep(1097.75, 20), rep(848.9722, 80))
abline(h = fm0, col = "blue", lty = "dotted", lwd = 1)
lines(c(time(Nile)), y1, col = "red", lwd = 2)
which yields:
- Retrieving expected data.frame for testthat expectation
- How to use an anonymous function with pipe operator?
- R passing RSelenium driver environment as function argument
- Keep file names merging list with lapply?
- replace strings that contains one another
- Stop parsing out zeros after decimals in ggplot2's annotate
- Plot data.tree coloring and labelling by level
- Extracting the date and time out of a date and time format
- How to reshape a dataframe into wide format with specified column pairs
- Show partial segments removed after limit scales for `geom_pointrange`
- Control ggplot2 legend look without affecting the plot
- Concatenate strings over all rows in a single column of a data frame
- Is there some way to keep variable names from.SD+.SDcols together with non .SD variable names in data.table?
- How to create mutually dependent checkbox columns in a DT table?
- A problem with an stacked, grouped and faceted graph y gg plot
- Installing R on Linux: configure: error: libcurl >= 7.28.0 library and headers are required with support for https
- Create a column conditional on multiple other character and numerical columns
- data.frame to array (2 columns)
- Changing options() in a function environment without changing options() in global environment in R?
- pivot(), group_by() and summarise() with nested data
- Why legend is not showing up in plot layout using patchwork in R?
- in dplyr::mutate, dplyr::starts_with works for .before but not .after?
- Finding optimal cut-off points for dividing a variable into equal groups considering ties in which quantiles do not work
- How to add a legend to hline?
- R Shiny Suppress slider handle for sliderInput until click
- brmultinom brglm2 vifs and dredge dont work
- R, how to get current time miliseconds, without extra information ? (Sys.time(), format("%X"))
- Installing multiple versions of R
- Command to see 'R' path that RStudio is using
- Fast pairwise longest common substring from start