r - How to draw a nice arrow in ggplot2 -

-

i creating ggplot chart want have arrows between 2 points. main task done geom_line(arrow = arrow()). however, want have "beautiful" thick arrows. resizing arrow via size= doesn't since messes head of arrow completely. illustrate problems:

create sample data , plot:

 name <- c("a", "a", "b", "b", "c", "c")  year <- c(2016, 2011, 2016, 2011, 2016, 2011)  year <- as.factor(year)  value <- c(1, 4, 1, 5, 2, 8)  data <- data.frame(name, year, value)  ggplot(data, aes(x=value, y=name)) +    geom_point(size=5, aes(colour=year)) +   geom_line(arrow = arrow(length=unit(0.30,"cm"), ends="first", type = "closed"))

the resulting plot looks that:

plot1

now i've tried "thicken" arrows...

ggplot(data, aes(x=value, y=name)) +    geom_point(size=5, aes(colour=year)) +   geom_line(arrow = arrow(length=unit(0.30,"cm"), ends="first", type = "closed"), size = 3)

that's result shown here:

plot2

my question: there way plot "beautiful" thick arrows?

i use geom_segment create arrow. need modify data "long" "wide" format (usually using dcast reshape2 or data.table package). time tried using base's reshape function.

ggplot(data, aes(x=value, y=name)) +    geom_point(size=5, aes(colour=year)) +   geom_segment(data = reshape(data, v.names="value", idvar = "name", timevar = "year", direction = "wide"),                aes(x=value.2011, xend=value.2016, y=name, yend=name), size = 2,                arrow = arrow(length = unit(0.5, "cm")))

arrow.segment

edit: found same issue pertains "closed" type arrows. now, try save plot vector graph (pdf or svg, using ggsave or export menu in plots tab). result not "messy".

svg


Comments

Post a Comment

Popular posts from this blog

sequelize.js - Sequelize group by with association includes id -

-
so when requesting group sequelize follows: return models.workingcalendar .findall({ attributes: [ 'workingcalendar.periodid', 'workingcalendar.date', 'period.name' ], include: [ { model: models.period, attributes: [] } ], where: { getsudoid: currentgetsudo.id, unitplantid: unitplantid }, group: ['workingcalendar.periodid', 'workingcalendar.date', 'period.name'], }); sequelize run query: select [workingcalendar].[id], [workingcalendar].[periodid], [workingcalendar].[date], [period].[name] [workingcalendars] [workingcalendar] left outer join [periods] [period] on [wor...
Read more

delphi - Take screenshot in webcam using VFrames in Console Application -

-
i'm doing program take picture of webcam using delphi xe2 , vframes achieve this, problem have figured out, in graphic application works fine, when use unit in console application, returns me error saying first chance exception @ $76b6b727. exception class eaccessviolation message 'access violation @ address 004a271b in module 'console.exe'. read of address 00000260'. process console.exe (3676) my unit : unit webcam; interface uses sysutils, windows, vcl.imaging.jpeg, vcl.graphics, vsample, vframes, classes; type twebcam = class private procedure newvideoframeevent(sender: tobject; width, height: integer; dataptr: pointer); public constructor create; destructor destroy; override; procedure capture_webcam(take_name: string); end; var web_image: tvideoimage; name_screen: string; implementation constructor twebcam.create; begin inherited create; end; destructor twebcam.destroy; begin inherited destroy; end; ...
Read more

c++ - Migration from QScriptEngine to QJSEngine -

-
i'm migrating qscriptengine code on qjsengine. now, have: class pars { public: static qscriptvalue printmainlog(qscriptcontext* c, qscriptengine* e); }; qscriptvalue pars::printmainlog(qscriptcontext* c, qscriptengine* e) { //some actions return e->globalobject().property(""); } ... qscriptengine engine; ... engine.globalobject().setproperty("printlog",engine.newfunction(pars::printmainlog)); so, user can put printlog("what ever"); in application in , example, qlineedit , function pars::printmainlog evalute. is there way qjsengine? so, user put same printlog("what ever");? way find here , user should put logger.printlog("what ever"); logger class inherited qobject printlog slot.
Read more