r - ggplot2 facet wrap: y-axis scale on the first row only -

-

is possible add y-axis facet wrap, first row, shown in screenshot?

code plot:

library(ggplot2)  mydf <- read.csv('https://dl.dropboxusercontent.com/s/j3s5sov98q9yvcv/bpdf_by_nb')  ggplot(data = mydf) +   geom_line(aes(x = yearmonth, y = newcons, group = 1), color="darkseagreen3")  +   geom_line(aes(x = yearmonth, y = demolitions, group = 1), color = "black") +   theme_minimal() +    labs(title="new constructions vs demolitions (2010 - 2014)\n") +   theme( axis.line = element_blank(),          axis.title.x = element_blank(),          axis.title.y = element_blank(),          axis.text.x = element_blank(),          axis.text.y = element_blank()) +   facet_wrap(~ nb)

result:

ggplot2 facet wrap

(i've manually added legend place want place scale)

the idea taken this answer.

p <- ggplot(data = mydf) +     geom_line(aes(x = yearmonth, y = newcons, group = 1), color="darkseagreen3")  +     geom_line(aes(x = yearmonth, y = demolitions, group = 1), color = "black") +     theme_minimal() +      labs(title="new constructions vs demolitions (2010 - 2014)\n") +     theme( axis.line = element_blank(),                  axis.title.x = element_blank(),                  axis.text.x = element_blank()) +     facet_wrap(~ nb)

note changes in theme call, can selective remove grobs later.

library(gtable) p_tab <- ggplotgrob(p) print(p_tab)

so want remove 4 of left axis items. there's gtable_filter function using regexes, simpler write own function simple negative subsetting (since couldn't craft correct regex):

gtable_filter_remove <- function (x, name, trim = true){     matches <- !(x$layout$name %in% name)     x$layout <- x$layout[matches, , drop = false]     x$grobs <- x$grobs[matches]     if (trim)          x <- gtable_trim(x)     x }  p_filtered <- gtable_filter_remove(p_tab,name = paste0("axis_l-",5:16),trim=false)  library(grid) grid.newpage() grid.draw(p_filtered)

enter image description here


Comments

Post a Comment

Popular posts from this blog

Django REST Framework perform_create: You cannot call `.save()` after accessing `serializer.data` -

-
i have following viewset: class artistprofileviewset(viewsets.modelviewset): queryset = artistprofile.objects.all() serializer_class = artistprofileserializer def perform_create(self, serializer): if serializer.is_valid(): serializer.save() with following serializers: class simpleartisttrackserializer(serializers.hyperlinkedmodelserializer): class meta: model = artisttrack fields = (...my fields...) class artistprofileserializer(serializers.hyperlinkedmodelserializer): owners = userserializer(many=true, required=false) tracks = simpleartisttrackserializer(many=true, required=false) class meta: model = artistprofile fields = (...my fields...) i getting following error: assertionerror: cannot call `.save()` after accessing `serializer.data`.if need access data before committing database inspect 'serializer.validated_data' instead. i don't see editing serializer.data object. th...
Read more

Why does Go error when trying to marshal this JSON? -

-
i'm trying rather simple example of trying decode json file structs using golang. however, when attempting error that json: cannot unmarshal object go value of type []main.track which don't understand. here's code in question, , json can found here . package main import ( "encoding/json" "fmt" "net/http" "os" ) // tracks group of track types type tracks struct { tracks []track } // track represents singular track type track struct { name string url string artist artist } // artist represents single artist type artist struct { name string mbid string url string } func main() { url := "http://ws.audioscrobbler.com/2.0/?method=geo.gettoptracks&api_key=c1572082105bd40d247836b5c1819623&format=json&country=netherlands" response, err := http.get(url) if err != nil { fmt.printf("%s\n", err) os.exit(1) } de...
Read more