主æˆåˆ†åˆ†æžãŒç°¡å˜ã«ã§ãるサイトを作ã£ãŸ - ã»ãã笑むã‚ã‘ã¾ã—ã¦ãŠã‚ã§ã¨ã†ã”ã–ã„ã¾ã™ã€‚ 本年もよã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 主æˆåˆ†åˆ†æž ã•ã¦ã€æ˜¨å¹´ã®çµ‚ã‚ã‚Šã”ã‚ã‹ã‚‰ã€ç§ã¯ä»•äº‹ã§ä¸»æˆåˆ†åˆ†æžã‚’è¡Œã£ã¦ã„ã¾ã™ã€‚ 主æˆåˆ†åˆ†æžã¨ã„ã†ã®ã¯ã€å¤šæ¬¡å…ƒã®ãƒ‡ãƒ¼ã‚¿ã‚’æƒ…å ±é‡ã‚’ãªã‚‹ã¹ãè½ã¨ã•ãšã«ä½Žæ¬¡å…ƒã«è¦ç´„ã™ã‚‹æ‰‹æ³•ã®ã“ã¨ã§ã™ã€‚ 主æˆåˆ†åˆ†æžã¯çµ±è¨ˆè¨€èªž R ã§ç°¡å˜ã«ã§ãã¾ã™ã€‚ 例ã¨ã—㦠iris データã§å®Ÿè¡Œã—ã¦ã¿ã¾ã—ょã†ã€‚ data(iris) data <- iris[1:4] prcomp.obj <- prcomp(data, scale=TRUE) # 主æˆåˆ†åˆ†æž pc1 <- prcomp.obj$x[,1] # 第一主æˆåˆ†å¾—点 pc2 <- prcomp.obj$x[,2] # 第二主æˆåˆ†å¾—点 label <- as.factor(iris[,5]) # 分類ラベル percent <- summary(prcomp.obj)$importance[3,2] *
統計WEB
沖縄県統計資料WEBサイト
統計データ・ãƒãƒ¼ã‚¿ãƒ«ã‚µã‚¤ãƒˆ
ãƒãƒ³ãƒãƒ¼ã‚¬ãƒ¼çµ±è¨ˆå¦ã«ã‚ˆã†ã“ãï¼ã€€å¹³å‡ã‹ã‚‰åˆ†æ•£åˆ†æžã¾ã§â”€â”€è¦ªã—ã¿ã®ã‚‚ã¦ã‚‹ä¾‹é¡Œ
{{#tags}}- {{label}}
{{/tags}}