Водопад сюжет с выделением выделенных точек

Question

Я хотел бы сделать хороший водопад, подчеркивающий выбранные точки - в R вы можете создать водопад следующим образом:

Представьте себе последовательность чисел от 2 до -2, а именно:

m = seq (from=2.0 ,to=-2.0,by= -0.05)
barplot(m)

В результате получается массив из 81 балла.

>m
#[1]  2.00  1.95  1.90  1.85  1.80  1.75  1.70  1.65  1.60  1.55  1.50  1.45
#[13]  1.40  1.35  1.30  1.25  1.20  1.15  1.10  1.05  1.00  0.95  0.90  0.85
#[25]  0.80  0.75  0.70  0.65  0.60  0.55  0.50  0.45  0.40  0.35  0.30  0.25
#[37]  0.20  0.15  0.10  0.05  0.00 -0.05 -0.10 -0.15 -0.20 -0.25 -0.30 -0.35
#[49] -0.40 -0.45 -0.50 -0.55 -0.60 -0.65 -0.70 -0.75 -0.80 -0.85 -0.90 -0.95
#[61] -1.00 -1.05 -1.10 -1.15 -1.20 -1.25 -1.30 -1.35 -1.40 -1.45 -1.50 -1.55
#[73] -1.60 -1.65 -1.70 -1.75 -1.80 -1.85 -1.90 -1.95 -2.00

То, что я хотел бы сделать, это подчеркнуть, скажем, точки m[13] и m[37], придав ему другой цвет и, возможно, отобразить график в 3D.

У кого-нибудь есть идеи, как это сделать?

В настоящее время я использую ggbio и считаю, что должен быть способ - скажем, с объектом S4 для достижения объекта, который затем я мог бы использовать с автоплотом.

Кто-нибудь достаточно умен, чтобы понять это?

Answer 1

Попробуй это:

#data
m = seq (from=2.0 ,to=-2.0,by= -0.05)

#define colours for bars
mCol <- rep(1,length(m))

#emphasizing 2 points
mCol[c(13,37)] <- 2

#plot
barplot(m,col=mCol)