Значения флага в сюжете?

Question

У меня есть точка, как показано ниже, для моих данных, которые я создал с помощью пакета TeachingDemos. Я хотел бы построить некоторые точки данных в другом цвете. Они отмечены знаком *. Sitbu уже отвечает на эту часть, но теперь я хотел бы отметить эти точки в графике плотности и графике гистограммы?

вход:

a1<- c(0.2,0.3,0.5) 
a2<-c(1,0.9,0.7) 
a3<-c(0.8,0.1,0.12) 
a4<-c(0.4,2,0.33) 
a<-cbind(a1,a2,a3,a4) 
a 
    a1 a2 a3 a4 
[1,] 0.2 1.0* 0.80 0.40 
[2,] 0.3 0.9* 0.10 2.00* 
[3,] 0.5 0.7 0.12 0.33 

dots(a) 

1

Я хочу, чтобы сюжет так: 2

Кроме того, я хотел бы флаг, который указывает на плотность участка и участка чужого?

density(a) 

hist(a) 
lines(d, col="red") 

Answer 1

Похоже, что вы используете функцию dots() из пакета TeachingDemos. Глядя на это исходный код, я могу воспроизвести свой первый участок следующим образом:

x <- a 
y <- as.vector(table(x)) 
plot(x, y, ylab = "Count") 

Хитрости теперь, чтобы выбрать точки, которые должны быть красными от й и установить свой цвет на красный. Это может быть сделано путем создания первых вектора, который содержит "black" для каждой точки, а затем перезаписать некоторые из побочных "red":

dot_col <- rep("black", length(a)) 
red_x <- c(1.0, 0.9, 2.00) 
dot_col[match(red_x, x)] <- "red" 
plot(x, y, col = dot_col, ylab = "Count") 

Answer 2

Вы не предоставили код, используемый для создания графики, но в целом вы можете использовать col аргумент в заговоре с целью изменить цвета точек. Установив col в вектор значений цвета, вы можете изменить цвет каждой точки на графике.