Error building an Out object

[JohnSal1]

Hi,

I have this data frame (df) structure: Code Outline A1 X1; Y1 X2; Y2 X3; Y3
A2 X1; Y1 X2; Y2 X3; Y3
A3 X1; Y1 X2; Y2 X3; Y3
…

And I wish to create from it an Out object so I used this code:

df <- as_tibble(df)
fac <- df$Code    
coo <- as.list(df$Outline)
x <- Out(coo, fac)
stack(x)

but I get these errors: Error in coo_check.default(coo) : do not know how to turn into a coo The x does not contain the codes but shp1, shp2, shp3

Why is it? How can I fix it?

[vbonhomme]

$coo expects a list of matrices I cannot really help further as I dont really understand your df structure

Le jeu. 29 sept. 2022 à 18:48, JohnSal1 @.***> a écrit :

Hi,

I have a theoretical data frame (df) with this structure: Code Outline A1 X1; Y1 X2; Y2 X3; Y3 Xn; Yn A2 X1; Y1 X2; Y2 X3; Y3 Xn; Yn A3 X1; Y1 X2; Y2 X3; Y3 Xn; Yn …

And I wish to create from it an Out object so I used this code:

df <- as_tibble(df)

fac <- df$Code

coo <- df$Outline

x <- Out(coo, fac)

but I get this error:

an Out object can only be built from a shape, a list, an array or a Coo object.

I presume that the coo object is not in the right order/structure, am I correct? How can I change it?

— Reply to this email directly, view it on GitHub https://github.com/MomX/Momocs/issues/225, or unsubscribe https://github.com/notifications/unsubscribe-auth/ABECQFRLKAKE7AXJMNZO27LWAXB5DANCNFSM6AAAAAAQY6XBD4 . You are receiving this because you are subscribed to this thread.Message ID: @.***>

-- vincentbonhomme.fr http://www.vincentbonhomme.fr cevennette.fr https://www.cevennette.fr 🌱

[JohnSal1]

Thanks for the reply.

Updated code:

Code <- c('A1', 'A2','A3')
Outline <- c('0;0 0;10 10;10', '0;0 0;10 10;10 0;10', '0;0 0;10 5;5')
df <- data.frame(Code, Outline)
df <- as_tibble(df)
fac <- df$Code   
coo <- as.list(df$Outline)
x <-Out(coo, fac)
stack(x)

[vbonhomme]

I think that does the job ;-)

library(tidyverse)
library(Momocs)

Code <- c('A1', 'A2','A3')
Outline <- c('0;0 0;10 10;10', '0;0 0;10 10;10 0;10', '0;0 0;10 5;5')
df <- data.frame(Code, Outline)

str_2_shp <- function(x){
  x %>%
    # split on spaces and ;
    strsplit(";| ") %>%
    # turn into numeric
    unlist() %>% as.numeric() %>%
    # then into a shape
    matrix(ncol=2, byrow=T)
}

coo <- df$Outline %>% map(str_2_shp)
fac <- select(fac, -Outline)
Out(coo, fac) %>% stack()

Le ven. 30 sept. 2022 à 06:59, JohnSal1 @.***> a écrit :

Thanks for the reply.

Updated code:

Code <- c('A1', 'A2','A3') Outline <- c('0;0 0;10 10;10', '0;0 0;10 10;10 0;10', '0;0 0;10 5;5') df <- data.frame(Code, Outline) df <- as_tibble(df) fac <- df$Code coo <- as.list(df$Outline) x <-Out(coo, fac) stack(x)

— Reply to this email directly, view it on GitHub https://github.com/MomX/Momocs/issues/225#issuecomment-1263103901, or unsubscribe https://github.com/notifications/unsubscribe-auth/ABECQFU5BGSR4DAGGAUA7XDWAZXSDANCNFSM6AAAAAAQY6XBD4 . You are receiving this because you commented.Message ID: @.***>

-- vincentbonhomme.fr http://www.vincentbonhomme.fr cevennette.fr https://www.cevennette.fr 🌱

[JohnSal1]

I get this error while running

> fac <- select(fac, -Outline)
Error in select(fac, -Outline) : object 'fac' not found

so I changed it to > fac <- select(df, Code)

and than run these lines:

result <- Out(coo, fac) 
panel(result, names = T) 

and still I get the shp names instead of the fac/Code. Any idea how to fix it

[JohnSal1]

Dear Dr. Bonhomme,

Any idea how to solve it?

Thanks.

[vbonhomme]

select(df, -Outline)

Le dim. 9 oct. 2022 à 09:08, JohnSal1 @.***> a écrit :

Dear Dr. Bonhomme,

Any idea how to solve it?

Thanks.

— Reply to this email directly, view it on GitHub https://github.com/MomX/Momocs/issues/225#issuecomment-1272473703, or unsubscribe https://github.com/notifications/unsubscribe-auth/ABECQFUHLMIHH3RZM5DH6D3WCJVNZANCNFSM6AAAAAAQY6XBD4 . You are receiving this because you commented.Message ID: @.***>

[vbonhomme]

Instead of select(fac etc. ?

Le dim. 9 oct. 2022 à 12:24, Vincent Bonhomme @.***> a écrit :

select(df, -Outline)

Le dim. 9 oct. 2022 à 09:08, JohnSal1 @.***> a écrit :

Dear Dr. Bonhomme,

Any idea how to solve it?

Thanks.

— Reply to this email directly, view it on GitHub https://github.com/MomX/Momocs/issues/225#issuecomment-1272473703, or unsubscribe https://github.com/notifications/unsubscribe-auth/ABECQFUHLMIHH3RZM5DH6D3WCJVNZANCNFSM6AAAAAAQY6XBD4 . You are receiving this because you commented.Message ID: @.***>

[JohnSal1]

Hi,

Sorry for the long silence. It still does not assign the codes (A1,A2 and A3) to the coo object. In the panel plot, I get shp1, shp2 and shp3. Any idea how to solve it?

Thanks again

Code:

library(tidyverse)
library(Momocs)

Code <- c('A1', 'A2','A3')
Outline <- c('0;0 0;10 10;10', '5;5 0;2.5 0;0', '0;0 0;10 5;5')
df <- data.frame(Code, Outline)

str_2_shp <- function(x){
  x %>%
    # split on spaces and ;
    strsplit(";| ") %>%
    # turn into numeric
    unlist() %>% as.numeric() %>%
    # then into a shape
    matrix(ncol=2, byrow=T)
}

coo <- df$Outline %>% map(str_2_shp)
fac <- select(df , -Outline)

x <- Out(coo, fac)
panel(x, names=TRUE, cex.names=0.9)

[vbonhomme]

Hi there,

panel/stack use the names of the coo directly. so that sth like this should work

coo <- df$Outline %>% map(str_2_shp) names(coo) <- df$Code fac <- select(df , -Outline)

x <- Out(coo, fac) panel(x, names=TRUE, cex.names=0.9)

Le mer. 17 mai 2023 à 21:54, JohnSal1 @.***> a écrit :

Hi,

Sorry for the long silence. It still does not assign the codes (A1,A2 and A3) to the coo object. In the panel plot, I get shp1, shp2 and shp3. Any idea how to solve it?

Thanks again

Code:

library(tidyverse) library(Momocs)

Code <- c('A1', 'A2','A3') Outline <- c('0;0 0;10 10;10', '5;5 0;2.5 0;0', '0;0 0;10 5;5') df <- data.frame(Code, Outline)

str_2_shp <- function(x){ x %>%

split on spaces and ;

strsplit(";| ") %>%
# turn into numeric
unlist() %>% as.numeric() %>%
# then into a shape
matrix(ncol=2, byrow=T)

}

coo <- df$Outline %>% map(str_2_shp) fac <- select(df , -Outline)

x <- Out(coo, fac) panel(x, names=TRUE, cex.names=0.9)

— Reply to this email directly, view it on GitHub https://github.com/MomX/Momocs/issues/225#issuecomment-1551965163, or unsubscribe https://github.com/notifications/unsubscribe-auth/ABECQFVZYCVEGNQAH6VAQP3XGUUGHANCNFSM6AAAAAAQY6XBD4 . You are receiving this because you commented.Message ID: @.***>

-- vincentbonhomme.fr http://www.vincentbonhomme.fr cevennette.fr https://www.cevennette.fr 🌱