r - Plot multiple sparkles by overlapping each other -

-

i use following code make plot first set of values (here number of crimes).

this have now: my sparkline single set of data

here code use plot it:

library(lattice) library(latticeextra) library(grid) library(reshape) library(rcurl) dd <- read.csv(text = geturl("https://gist.githubusercontent.com/geekonacid/da022affd36310c96cd4/raw/9c2ac2b033979fcf14a8d9b2e3e390a4bcc6f0e3/us_nr_of_crimes_1960_2014.csv")) d <- melt(dd, id="year") names(d)[1] <- "time" pdf("sparklines_lattice_multiple_ten.pdf", height=10, width=8) xyplot(value~time | variable, d, xlab="", ylab="", strip=f, lwd=0.7, col=1, type="l",         layout=c(1,length(unique(d$variable))), between = list(y = 1),        scales=list(y=list(at=null, relation="free"), x=list(fontfamily="serif")),         par.settings = list(axis.line = list(col = "transparent"),                            layout.widths=list(right.padding=20, left.padding=-5)),        panel = function(x, y, ...) {          panel.xyplot(x, y, ...)          pushviewport(viewport(xscale=current.viewport()$xscale-5,                                 yscale=current.viewport()$yscale, clip="off"))          panel.text(x=tail(x,n=1), y=tail(y,n=1), labels=levels(d$variable)[panel.number()],                      fontfamily="serif", pos=4)          popviewport()          panel.text(x=x[which.max(y)], y=max(y), labels=round(max(y),0), cex=0.8,                     fontfamily="serif",adj=c(0.5,2.5))          panel.text(x=x[which.min(y)], y=min(y), labels=round(min(y),0), cex=0.8,                     fontfamily="serif",adj=c(0.5,-1.5))          panel.text(x=tail(x,n=1), y=tail(y,n=1), labels=round(tail(y,n=1),0), cex=0.8,                     fontfamily="serif", pos=4)          panel.points(x[which.max(y)], max(y),  pch=16, cex=1)          panel.points(x[which.min(y)], min(y),  pch=16, cex=1, col="red")}) dev.off()

what need: add dimension (i.e., line) each sparkline number of suspects per each type of crime (e.g., vehicle.theft, larceny.theft, etc.). in other words, i want add line each sparkline compare dynamics of (1) number of crimes , (2) number of suspect each type of crime.

to clear: i want set 2 lines each sparkline.

just before answer question please aware of:

  1. par(new=true) doesn't work: warning message: in par(new = true) : calling par(new=true) no plot. creates 2 separated pages in pdf file 2 different sparklines. need opposite result: two sparklines on same pdf page.

thank efforts me (if so).


Comments

Post a Comment

Popular posts from this blog

ios - RestKit 0.20 — CoreData: error: Failed to call designated initializer on NSManagedObject class (again) -

-
this error has shown on many times, seems. prominent answer issue seems restkit 0.20 — coredata: error: failed call designated initializer on nsmanagedobject class however, solution posted doesn't work me. let's start beginning: i want upload file server. want parse response make sure uploaded. if not, try again later. model has boolean variable called nsnumber *senttoserver purpose (in coredata, bool saved nsnumber ) . because don't know whether sending going successful, save entity coredata model first before sending via restkit. when post request successful, server returns json string this: {"id":14,"created":true} notice that, of course, id not set on coredata model yet, both id , created new informations model. here's model: @interface recording : nsmanagedobject @property (nonatomic, retain) nsstring * audiofilepath; @property (nonatomic, retain) nsdate * createdat; @property (nonatomic, retain) nsstring * deviceid; @...
Read more

java - Digest auth with Spring Security using javaconfig -

-
so i'm trying create digest authentication spring following documentation trying translate xml "requirements" in java requirements. let's have xml in docs: <bean id="digestfilter" class= "org.springframework.security.web.authentication.www.digestauthenticationfilter"> <property name="userdetailsservice" ref="jdbcdaoimpl"/> <property name="authenticationentrypoint" ref="digestentrypoint"/> <property name="usercache" ref="usercache"/> </bean> <bean id="digestentrypoint" class= "org.springframework.security.web.authentication.www.digestauthenticationentrypoint"> <property name="realmname" value="contacts realm via digest authentication"/> <property name="key" value="acegi"/> <property name="noncevalidityseconds" value="10"/> </b...
Read more

laravel - PDOException in Connector.php line 55: SQLSTATE[HY000] [1045] Access denied for user 'root'@'localhost' (using password: YES) -

-
my .env: app_env=local app_debug=true app_key=myappkey app_url=http://localhost db_connection=mysql db_host=localhost db_port=3306 db_database=gestiontaller db_username=root db_password='root' cache_driver=file session_driver=file queue_driver=sync redis_host=127.0.0.1 redis_password=null redis_port=6379 mail_driver=smtp mail_host=mailtrap.io mail_port=2525 mail_username=null mail_password=null mail_encryption=null i've tried password ", ' , without, restarting server every time. i've tried changing localhost 172.0.0.1. yes, password correct, running mysql -u root -p introducing password root in prompt can go mysql. users table: +------------------+-----------+ | user | host | +------------------+-----------+ | debian-sys-maint | localhost | | mysql.sys | localhost | | root | localhost | | root1 | localhost | +------------------+-----------+ i've added homestead.yaml this: database_port: 3306 ...
Read more