R help es - Mar 2013 - red SNA

Estimados

Le consulto porque estoy intentando presentar unos datos de alguna forma un 
poco distinta, salir un poco de la costumbre.

Primero describo los datos:
Suponiendo una secuencia:
golpe al auto -> torura de vidrio -> rotura de aciento
otro auto
golpe al auto -> -> rotura de aciento , a este por alguna causa no se le 
rompio el vidio o esa información es desconocida.

Esta información se encuentra en un data.frame (en el ejemplo siguiente ...)

La intención es hacer un diagrama con SNA (o parecido) donde en una red están 
las relaciones (me interesa esos gráficos donde los circulos tienen líneas que 
los conectas, técnicamente son nodos ...).

Tengo claro como es en los ejemplos de redes sociales, donde la relación es 
entre presonas que se conocen, pero yo tengo unas relaciónes que son más allá, 
como si se conocen y llevan el mismo tipo de ropa, o el mismo tipo de ropa 
pero no se conocen como en la red social.

Copio y pego un código donde explican la forma de preparar los datos para una 
red con SNA, luego yo modifico el data.frame del ejemplo agregando
"yo", pero
creo que este metodo es ineficiente o tiene errores.

Alguna sugerencia (me desconcierta sobre todo la última línea, algo huele 
mal):

# afiliancion para SNA

# http://www.stanford.edu/~messing/Affiliation%20Data.html
df <- data.frame( person = 
c('Sam','Sam','Sam','Greg','Tom','Tom','Tom','Mary','Mary'),
                  group =
c('a','b','c','a','b','c','d','b','d'),
                  stringsAsFactors = F)
df

m = table( df )
M = as.matrix( m ) 
# o M = as.matrix( table(df) ) 

Mrow = M %*% t(M) 
Mrow

Mcol = t(M) %*% M
Mcol

df_yo <- data.frame( person = 
c('Sam','Sam','Sam','Greg','Tom','Tom','Tom','Mary','Mary'),
                  group =
c('a','b','c','a','b','c','d','b','d'),
                  yo =
c('a','b','','a','b','c','','','a'),
                  stringsAsFactors = F)
df_yo
m_yo = table(df_yo)
m_yo
M_yo = as.matrix( m_yo )
M_yo
Mrow_yo = M_yo %*% t(M_yo) 
Mrow_yo

Mcol_yo = t(M_yo) %*% M_yo
Mcol_yo

Otra forma puede ser ir por columnas, y luego rbind(), por ejemplo:
columna 1 y columna 2
columna 1 y columna 3
columna 2 y columna 3

¿Esto crearía nodos en la forma tradicional de los ejemplos?, ¿estoy en lo
correcto o confundido?


El 6 de marzo de 2013 00:43, <javier.ruben.marcuzzi@gmail.com> escribió:
> Estimados
>
> Le consulto porque estoy intentando presentar unos datos de alguna forma un
> poco distinta, salir un poco de la costumbre.
>
> Primero describo los datos:
> Suponiendo una secuencia:
> golpe al auto -> torura de vidrio -> rotura de aciento
> otro auto
> golpe al auto -> -> rotura de aciento , a este por alguna causa no se
le
> rompio el vidio o esa información es desconocida.
>
> Esta información se encuentra en un data.frame (en el ejemplo siguiente
> ...)
>
> La intención es hacer un diagrama con SNA (o parecido) donde en una red
> están
> las relaciones (me interesa esos gráficos donde los circulos tienen líneas
> que
> los conectas, técnicamente son nodos ...).
>
> Tengo claro como es en los ejemplos de redes sociales, donde la relación es
> entre presonas que se conocen, pero yo tengo unas relaciónes que son más
> allá,
> como si se conocen y llevan el mismo tipo de ropa, o el mismo tipo de ropa
> pero no se conocen como en la red social.
>
> Copio y pego un código donde explican la forma de preparar los datos para
> una
> red con SNA, luego yo modifico el data.frame del ejemplo agregando
"yo",
> pero
> creo que este metodo es ineficiente o tiene errores.
>
> Alguna sugerencia (me desconcierta sobre todo la última línea, algo huele
> mal):
>
> # afiliancion para SNA
>
> # http://www.stanford.edu/~messing/Affiliation%20Data.html
> df <- data.frame( person >
c(''Sam'',''Sam'',''Sam'',''Greg'',''Tom'',''Tom'',''Tom'',''Mary'',''Mary''),
>                   group =
c(''a'',''b'',''c'',''a'',''b'',''c'',''d'',''b'',''d''),
>                   stringsAsFactors = F)
> df
>
> m = table( df )
> M = as.matrix( m )
> # o M = as.matrix( table(df) )
>
> Mrow = M %*% t(M)
> Mrow
>
> Mcol = t(M) %*% M
> Mcol
>
> df_yo <- data.frame( person >
c(''Sam'',''Sam'',''Sam'',''Greg'',''Tom'',''Tom'',''Tom'',''Mary'',''Mary''),
>                   group =
c(''a'',''b'',''c'',''a'',''b'',''c'',''d'',''b'',''d''),
>                   yo =
c(''a'',''b'','''',''a'',''b'',''c'','''','''',''a''),
>                   stringsAsFactors = F)
> df_yo
> m_yo = table(df_yo)
> m_yo
> M_yo = as.matrix( m_yo )
> M_yo
> Mrow_yo = M_yo %*% t(M_yo)
> Mrow_yo
>
> Mcol_yo = t(M_yo) %*% M_yo
> Mcol_yo
>
>
>
	[[alternative HTML version deleted]]