Ошибка в is.finite = (x): метод по умолчанию не реализован для типа "список"

Question

Я возвращаю ошибку "is.finite (x): метод по умолчанию, не реализованный для типа" список ""

Я пытаюсь нанести эти координаты на каждый квадрант, чтобы оценить полезность каждого действие. Я также хотел бы добавить легенду с названием каждого события в цвете. Вот мой код:

Df<-structure(list(ï..Idea = structure(c(2L, 1L, 6L, 5L, 4L, 3L), .Label = c("Find motivation online", 
"Reward yourself for tidying room", "Schedule: communication", 
"Schedule: Diary", "Schedule: phone", "Start as soon as you see mess"
), class = "factor"), Effort = c(2L, 2L, 4L, 1L, 3L, 4L), Impact = c(7L, 
4L, 9L, 6L, 5L, 6L), Topic = structure(c(1L, 1L, 1L, 1L, 1L, 
1L), .Label = "Project Tidy Room", class = "factor")), class = "data.frame", row.names = c(NA, 
-6L))
install.package("ggplot2")
install.package("dplyr")
library(dplyr)
library(ggplot2)

x_mid<-mean(c(max(Df[2],na.rm=TRUE),min(Df[2],na.rm=TRUE)))

y_mid<-mean(c(max(Df[3],na.rm=TRUE),min(Df[3],na.rm=TRUE)))

Df %>%
mutate(quadrant = case_when(Df[2]>x_mid & Df[3]>y_mid ~ "Q1",
                          Df[2]<=x_mid & Df[3]>y_mid~"Q2",
                          Df[2]<=x_mid & Df[3]<=y_mid~"Q3",
                                              TRUE ~"Q4")) %>%

ggplot(aes(x=Df[2],y=Df[3],colour=Df[1]))+geom_vline(xintercept = x_mid)+geom_hline(yintercept=y_mid)+geom_point()

Answer 1

Я нашел гораздо более простое решение без меток квадрантов:

library(ggplot2)
ggplot(Df,aes(x=Df[,2],y=Df[,3],color=Df[,1]))+geom_point()+labs(title="Effort vs 
Impact",x="Effort",y="Impact")+scale_x_continuous(breaks=(0:10),limits = 
c(0,10))+scale_y_continuous(breaks=(0:10),limits=c(0,10))+geom_hline(yintercept = 
5)+geom_vline(xintercept = 5)