R dataframe create One to One Relationship -

-

experts, looking advice below r dataframe need build relationship each zone's within particular city.

input:

mydf = data.frame(city = c("la", "la", "la", "nyc", "nyc"),             zone = c("a1", "a2", "a3", "b1", "b2"))

enter image description here

expected output:

output

here's tidyverse approach defines function combinations & applies each city's zones:

library(dplyr); library(tidyr); library(purrr)  generate_combinations <- function(data){   zone <- data %>% select(zone) %>% unlist()   combinations <- expand.grid(zone_1 = zone, zone_2 = zone) # generate combinations   combinations <- combinations %>%      filter(!(zone_1 == zone_2)) %>% # remove invalid combinations     mutate_all(as.character)   return(combinations) }  mydf <- mydf %>%    nest(zone) %>%   mutate(data = map(data, generate_combinations)) %>%   unnest()  > mydf    city zone_1 zone_2 1   la     a2     a1 2   la     a3     a1 3   la     a1     a2 4   la     a3     a2 5   la     a1     a3 6   la     a2     a3 7  nyc     b2     b1 8  nyc     b1     b2  # if city info no longer needed mydf <- mydf %>% select(-city)

data:

mydf = data.frame(city = c("la", "la", "la", "nyc", "nyc"),                    zone = c("a1", "a2", "a3", "b1", "b2"),                   stringsasfactors = f)

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