r - ggplot version of dotplot -

-

curious how plot dotplot using ggplot or plotly library functions. label mpg values on individual dots. 

# dotplot: grouped sorted , colored # sort mpg, group , color cylinder  x <- mtcars[order(mtcars$mpg),] # sort mpg x$cyl <- factor(x$cyl) # must factor x$color[x$cyl==4] <- "red" x$color[x$cyl==6] <- "blue" x$color[x$cyl==8] <- "darkgreen"     dotchart(x$mpg,labels=row.names(x),cex=.7,groups= x$cyl,          main="gas milage car models\ngrouped cylinder",          xlab="miles per gallon", gcolor="black", color=x$color)

enter image description here

with quick clean of rownames column can following.

we used factor() aesthetics color becomes discrete/ when faceting acheive need specify "free_y" scale , space.

base

library(tidyverse) mtcars2 = rownames_to_column(mtcars, "car") ggplot(mtcars2, aes(x = mpg, y = factor(car), color = factor(cyl))) +    geom_point(shape = 1) +    facet_grid(cyl ~ ., scales = "free_y", space = "free_y") +    theme_bw() +    theme(panel.grid = element_blank(),         panel.grid.major.y = element_line(size=.1, color="grey90"),         legend.position = "none") +   ggtitle("gas milage car models\ngrouped cylinder") +    xlab("miles per gallon") +   ylab("")

enter image description here

adding text

ggplot(mtcars2, aes(x = mpg, y = factor(car), color = factor(cyl))) +    geom_point(shape = 1) +    geom_text(aes(label = mpg), colour = "grey40", size = 3, hjust = -0.3) +    facet_grid(cyl ~ ., scales = "free_y", space = "free_y") +    theme_bw() +    theme(panel.grid = element_blank(),         panel.grid.major.y = element_line(size=.1, color="grey90"),         legend.position = "none") +   ggtitle("gas milage car models\ngrouped cylinder") +    xlab("miles per gallon") +   ylab("")

enter image description here

you can use geom_label instead geom_text works great here.


Comments

Post a Comment

Popular posts from this blog

ios - MKAnnotationView layer is not of expected type: MKLayer -

-
Image
so code works fine logger riddled message. there way rid of or suppress it? postannotation.swift class postannotation: mkpointannotation { //mark: properties let post: post //mark: initialization init(post: post) { self.post = post super.init() self.coordinate = cllocationcoordinate2d(latitude: post.latitude, longitude: post.longitude) self.title = post.title self.subtitle = post.timestring() } } adding annotation let annotation = postannotation(post: post) self.map.addannotation(annotation) func mapview func mapview(_ mapview: mkmapview, viewfor annotation: mkannotation) -> mkannotationview? { if annotation mkuserlocation { return nil } var annotationview = mapview.dequeuereusableannotationview(withidentifier: "pin") as? mkpinannotationview if annotationview == nil { annotationview = mkpinannotationview(annotation: annotation, reuseidentifier: "pin")
Read more

ZeroMQ on Windows, with Qt Creator -

-
i have installed zmq link given below on windows 7. http://zeromq.org/distro:microsoft-windows 1) have c++ project in qt-creator , i'm using zmq c++ binding (zhelpers.hpp etc). 2) have added .lib installed zmq folder qtcreator 3) while compiling, compiler looks _imp__zmq_verion, in .dll files present in .lib have __imp_zmq_version. 4) causing undefined reference zmq_version. anyone else faced problem , has solution ?
Read more

unity3d - Unity SceneManager.LoadScene quits application -

-
i have 2 different scenes 1 named 'main' , other 'game' both added scenes in load. when use scenemanager.loadscene("game"); works no problem when tried return main scene code if (input.getkeydown (keycode.escape)) { scenemanager.loadscene("main"); } strangely game quits. thanks. sorry interruption. somewhere on other script found code. if (input.getkeydown (keycode.escape)) { application.quit (); } that's bad, know...
Read more