Построение анимированного обмена (построение направленных ребер)
Я однажды виделэтот сюжет (ССЫЛКА) на судоходных торгах. Я работаю с диалоговыми обменами и подумал, что может быть интересно отобразить такой обмен с использованием R.
Это более важный вопрос, но я думаю, что он может быть полезен для сообщества в целом.
Позволять'скажем, у нас за столом сидят 7 человек:
И я записал диалоги, разговоры докладчиков и слушателей. Я'Мы создали фиктивную data.frame с такой информацией. Вот'голова: я
speaker receiver duration speaker.x speaker.y receiver.x receiver.y
1 D A 16 0.626 0.163 0.755 0.741
2 E D 3 0.391 0.161 0.626 0.163
3 A B 25 0.755 0.741 0.745 0.517
4 B E 6 0.745 0.517 0.391 0.161
5 B C 45 0.745 0.517 0.737 0.251
6 E F 37 0.391 0.161 0.258 0.285
Я хотел бы создать анимированные стрелки (от говорящего к получателю), которые раскрашены по динамику и взвешены (время / продолжительность, длина и / или толщина) и анимированы так же, как данные доставки (номер строки - это порядок, в котором речь происходит). Я думаю, что, возможно, пакет анимации может быть полезен здесь, но понятия не имею. Может быть, это нев настоящее время возможно с R (как указано Беном Шмидтомс заявлением "Я"я надеялся, что смогу отказаться от ArcGIS для следующего проекта карты, который я делаю, и сохранить все в R - I 'Я не убежден после этого опыта, что это будет возможно ").
Я думаю, что многие люди во многих областях могли бы использовать этот вид картирования обменов, просто так получается, что яЯ заинтересован в обмене диалогами. В конце концов яЯ бы нарисовал это поверх растрового изображения, но этолегкая часть
Вот'Данные и графики это далеко. Я
#the data
the_table Ответы на вопрос(1)
geom_segment это достаточно просто
Моя единственная проблема до сих пор заключается в том, чтобы получить шкалу, чтобы размер работал разумно.
мы сохранили говорящие данные. фрейм какtalking
library(animation)
library(RColorBrewer)
library(grid) ## for arrow
library(ggplot2)
# scale the duration (not ideal)
talking$scale_duration <-scale(talking$duration, center = FALSE)
# ensure that we have different colours for each speaker
ss <- levels(talking$speaker)
speakerCol <- scale_colour_manual(values = setNames(brewer.pal(n=length(ss), 'Set2' ), ss), guide = 'none')
# the base plot with the table and speakers (and `talking` base dataset)
base <- ggplot(data = talking, aes(colour = speaker)) +
geom_point(data=mapping, aes(x=x, y=y), size=10, inherit.aes = FALSE) +
geom_text(data=mapping, aes(x=x, y=y, label=as.character(person)),
inherit.aes = FALSE, color="blue") +
ylim(-.2, 1.2) + xlim(-.2, 1.2) +
geom_rect(data=the_table, aes(xmax = xmax, xmin=xmin,
ymin=ymin, ymax = ymax), fill="gray80", inherit.aes = FALSE) +
speakerCol
oopt <- ani.options(interval = 0.5)
# a function to create the animation
pp <- function(){
print(base)
interval = ani.options("interval")
for(n in rep(seq_along(talking$duration), each = talking$duration))){
# a segment for each row
tn <- geom_segment(aes(x= speaker.x, y= speaker.y, xend = receiver.x, yend = receiver.y), arrow = arrow(),
data =talking[n, ,drop = FALSE])
print(base + tn)
ani.pause()
}
}
использованиеsaveGIF(pp(), interval = 0.1) экспортировать GIF-анимацию и т. д.
ani.options(oopt)duration переменная для этого обмена. Вы хотели позвонитьani.pause(interval) где-то там?oopt
geom_segment(data = talking,aes(x= speaker.x, y= speaker.y, xend = receiver.x, yend = receiver.y, size = duration, colour = speaker), arrow = arrow())saveVideoкоторый использует ffmpeg для создания фильма в формате mp4. Ваше мышление было на правильном пути, но пакет анимации делает намного больше.ffmpegstackoverflow.com/questions/2829113/...speechigraphпакет