MATEMATICI!!!

[Jerson]

Potřebuju to zobrazit graficky. A nejde o dvojice, jde o skupiny od dvou do sedmi lidí.
Ptám se tady, abych nezakládal další téma.

[Eleshar_Vermillion]

Co znamená graficky? Jako graf? Jako různou sílu spojnic dvojic bodů? To první z pivotu uděláš na dva kliky, druhé neumím.

[Klimbing]

Vzpomněl jsem si, jak Skříťa analyzoval anketu o nejhranější RPG, a chtěl jsem se zeptat, zda by někdo dokázal udělat - nebo lépe doporučit mi nástroj - na analýzu blízkosti postav v RPG.

Principal coordinate analysis je ordinační technika vhodná pro takovýto typ dat.

[Kadir_beneath_Mo_Moteh]

Jak z této tabulky:

input.png

vytvořit tento:

net.png

nebo tento:

arc.png

obrázek?

V R (+RStudio pro snadnější práci):

Kód: Vybrat vše

library(tidyverse)
library(tidygraph)
library(ggraph)
# library(svglite) for printing

# read data in tabular format (rows - players, columns - games, 1=attendance)
a <- read.csv("path/to/your/file/table.csv") # comma sorted, not semicolon
# transform to longer format suitable for analysis
b <- a %>%
  pivot_longer(
    cols = !Hrac, names_to = "hra",
    values_to = "count",
    values_drop_na = TRUE
  ) %>%
  select(!count)

# extract nodes (players) and edges (players' pairings) for plotting
# from: https://stackoverflow.com/questions/49706996/creating-nodes-and-edges-dataframes-from-tidy-dataframes
# create an adjacency matrix
d <- b[,c("hra","Hrac")]
mat <- table(d)
mat <- t(mat) %*% mat
# look at your adjacency matrix
as.table(mat)
# since the network is not directed, we can consider only the (strictly) upper triangular matrix
mat[lower.tri(mat, diag = TRUE)] <- 0
# look at the new adjacency matrix
as.table(mat)
edges2 <- as.data.frame(as.table(mat))
edges2 <- filter(edges2, Freq != 0)
colnames(edges2) <- c("hrac1", "hrac2", "pocet")
edges2 <- arrange(edges2, hrac1)

nodes2 <- data.frame(name = unique(d$Hrac))

# create plot object
net.tidy2 <- tbl_graph(nodes = nodes2, edges = edges2, directed = FALSE)

# #Print - uncomment when you want to print (don't forget to uncomment the dev.off down below)
# svglite(filename="path/to/your/file/image.svg",
#         width = 8, height = 11)

# plot as a net
ggraph(net.tidy2, layout = "kk") + 
  geom_edge_link(aes(width = pocet), alpha = 0.8) + 
  scale_edge_width(range = c(0.2, 1), name = "Počet\nsdílených\nher") +
  geom_node_point() +
  geom_node_text(aes(label = name, colour = "#FF0000"), repel = TRUE, max.overlaps  = 14, size = 3) +
  guides(color="none") + # removes colour from legend
  theme_graph()

# # End of print
# dev.off()

# plot as a list
ggraph(net.tidy2, layout = "linear") + 
  coord_flip() +            # Rotate 90°
  geom_edge_arc(aes(width = pocet), alpha = 0.6, fold = TRUE) + 
  scale_edge_width(range = c(0.1, 1), name = "Počet\nsdílených\nher") +
  geom_node_text(aes(label = name), nudge_y = -0.3, hjust = 1.0, size = 2) + # hjust - right-adjusted text, nudge_y - small space between labels and nodes
  theme_graph() +
  guides(color="none") + # removes colour from legend
  theme(plot.title = element_text(hjust = 0.5, size = 10),
        plot.margin = margin(t = 0,  # Top margin     # Remove plot margins
                             r = 0,  # Right margin
                             b = 0,  # Bottom margin
                             l = 0)) # Left margin

Prodejci softwaru nenávidí tento jednoduchý trik

[Eleshar_Vermillion]

Pokud si nechceš plevelit comp jednoúčelovým softwarem, tak lze i takto s pár pomocnými tabulkami:

2024-09-21 19_47_25-Window.png

0) Presence ve hře
1) Pomocná tabulka: nahrazení jedniček jmény hráčů
2) Spojení všech jmen zůčastněných hráčů dané hry
3) Pomocná tabulka: nalezení všech možných dvojic hráčů
4) Výsledek: kolikrát se která dvojice vyskytuje ve 2), aplikováno podmíněné formátování pro lepší viditelnost
5) Grafické zobrazení 4)

Když si 4) zkopíruješ někam jako hodnoty, můžeš filtrovat a řadit dle libosti, tady to podle mě nejde kvůli VSTACK.

Pochopitelně makrem by to bylo jednodušší.

[Eleshar_Vermillion]

[Vallun]

Minimálně ty pravé úhly jsou mimo...

[Passingby]

The most famous square? – Piccadilly Circus.

[Eleshar_Vermillion]

Nevím, co se ti nelíbí na pravých úhlech, spíš bych nevěřil té stejné délce stran.

[ilgir]

A to já zase jo. Takhle na první pohled to připomíná Svatopetrské náměstí, a to je vlastně taky square, a možná i slavnější než Picacadilly.

[Passingby]

Ve Štatlu přesně takové štverec máme

freedom-square-funnel.png

[Jezus]

Hezký pokus, ale možná tak pro c'thulhuovskou (fancy slovo pro neeuklidovskou ) geometrii. V té euklidovské úhel tvoří dvě polopřímky se společným počátkem (případně dvě přímky se společným bodem).

Na kružnici nemáš jak úhel určit (čím dál na kružnici od přímky, tím by byl větší).

Nehledě na to že pokud protáhneme tu vodorovnou úsečku, projde středem kružnice, což znamená, že kolmice na ni v bodě, v němž projde kružnicí, bude tečna té kružnice. Kolmice (pravý úhel) té vodorovné úsečky je teda tečna oblouku té kružnice, tedy přímka, která s kružnicí sdílí jeden bod. Pravý úhel tedy svírá jiná "čára".

Nicméně v neeuklidovské geometrii by to projít mohlo, tam se mohou protínat rovnoběžky nebo mít trojúhelník se třemi pravým úhly (záleží jaký tvar přiřknete základní rovině). Tady se nám btw rýsuje něco jako trojúhelník se dvěma pravými úhly - stačí protáhnout ty úsečky, aby se protnuly v jeho vrcholu - další nápověda, že něco nehraje

[MarkyParky]

Přímka je jen speciální případ kružnice a nekonečným poloměrem

A ne, nepotřebuješ opustit eukleidovský prostor, aby to platilo. Stačí v eukleidovském dostatečně* zazoomovat.


*Nekonečně.

[York]

Na kružnici nemáš jak úhel určit (čím dál na kružnici od přímky, tím by byl větší).

Jasně, že máš, změříš ho oproti tečně. Nic neeuklidovskýho na tom není.

[Passingby]

Bacha, Jezus je (iirc) strojař a strojaře žádný nekonečný filozofování, ani měření na tečně (ke které se nemají jak dostat) nezajímá. Oni to potřebují změřit hned a s požadovanou přesností. Ale když jim to takhle někdo narýsuje, klidně to vyrobí, to problém není.