Warning in geom_point(aes(x = Q_eq, y = P_eq), color = "gray40", size = 2.5): All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_point(aes(x = Q_tax, y = PD_tax), color = "steelblue", size = 2.5): All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_point(aes(x = Q_tax, y = PS_tax), color = "#A40027", size = 2.5): All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = 0, xend = Q_eq, y = P_eq, yend = P_eq), : All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = 0, xend = Q_tax, y = PD_tax, yend = PD_tax), : All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = 0, xend = Q_tax, y = PS_tax, yend = PS_tax), : All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = Q_tax, xend = Q_tax, y = 0, yend = PD_tax), : All aesthetics have length 1, but the data has 150 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning: Removed 1 row containing missing values or values outside the scale range
(`geom_text()`).
Warning in geom_point(aes(x = Q_eq, y = P_eq), color = "gray40", size = 2.5): All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_point(aes(x = Q_tax, y = PD_tax), color = "steelblue", size = 2.5): All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_point(aes(x = Q_tax, y = PS_tax), color = "#A40027", size = 2.5): All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = 0, xend = Q_eq, y = P_eq, yend = P_eq), : All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = 0, xend = Q_tax, y = PD_tax, yend = PD_tax), : All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = 0, xend = Q_tax, y = PS_tax, yend = PS_tax), : All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning in geom_segment(aes(x = Q_tax, xend = Q_tax, y = 0, yend = PD_tax), : All aesthetics have length 1, but the data has 300 rows.
ℹ Please consider using `annotate()` or provide this layer with data containing
a single row.
Warning: Removed 139 rows containing missing values or values outside the scale range
(`geom_line()`).
Warning: Removed 182 rows containing missing values or values outside the scale range
(`geom_line()`).
Warning: Removed 1 row containing missing values or values outside the scale range
(`geom_text()`).
. . .