Publications by tjlee
Document
weight <- c(50,55,63,55,67,43,52) high <- c(150,160,170,175,150,153,165) mean(weight) ## [1] 55 # Load ggplot2 library(ggplot2) # Load ggplot2 library(ggplot2) # Create data data <- data.frame( name=c("王曉明","B","C","D","E","F") , value=c(50,55,63,55,67,43) ) # Barplot ggplot(data, aes(x=name, y=value)) + geom_bar(s...
13 sym R (730 sym/6 pcs) 4 img
Document
weight <- c(42,50,65,52,46,56) high <- c(157,166,168,170,155,172) plot(weight,high) median(weight) ## [1] 51 # create dummy data data <- data.frame( name=letters[1:5], value=sample(seq(4,15),5) ) # Uniform color barplot(height=data$value, names=data$name, col="#4DD7E3", horiz=T, las=1 ) hist(high, ...
13 sym 4 img
Publish Document
weight <- c(50,55,60,54,67,57,52) high <- c(150,160,179,175,150,159,165) water<- c(1,2,3,4,5,6,7) plot(weight,high, pch=16, col="#081F5C", xlab="體重", ylab="身高", main="班級的身高體重") library(ggplot2) data <- data.frame( 種類=c("兔子","松鼠","熊","貓","鴨子") , 數量=c(17,13,15,2...
12 sym R (616 sym/5 pcs) 4 img
Document
weight <- c(50,60,54,45,60,75,46) high <- c(150,170,165,143,200,180,160) plot(weight,high) # create dummy data data <- data.frame( name=letters[1:5], value=sample(seq(4,15),5)) # Uniform color barplot(height=data$value, names=data$name, col="#69b3a2", horiz=T, las=1 )...
7 sym 2 img
Document
weight <- c(50,55,63,55,67,43,52) high <- c(150,160,170,175,150,153,165) plot(weight,high, pch=15, col="orange", xlab="體重", ylab="身高", main="班級的身高體重") # Load ggplot2 library(ggplot2) # Create data data <- data.frame( name=c("A","B","C","D","E") , value=c(3,12,5,18,45) ) # Bar...
7 sym R (404 sym/2 pcs) 2 img
Document
weight <- c(55,78,56,87,25,52) high <- c(158,163,165,168,175,178) money <- c(6000,4500,8421,1264) plot(weight,high, pch=17, col="orange", xlab="體重", ylab="身高", main="班級的身高體重") library(ggplot2) data <- data.frame( name=c("王曉明","B","C","D","E","F") , value=c(50,55,63,55,67,43)...
9 sym R (539 sym/3 pcs) 3 img
Document
library(readxl) test <- read_excel("D:/文藻/test.xlsx") library(readr) test2 <- read_excel("D:/PPT/table2_2.xlsx") Data <- read.csv("D:/PPT/table1_1.csv", fileEncoding = "Big5") Data3 <- read.table("D:/PPT/table2_2.txt", header = TRUE, fileEncoding = "UTF-16LE") mean(Data3$Height) ## [1] 165.869 summary(Data) ## Name Stati...
19 sym R (2394 sym/14 pcs) 2 img
wonderland
In class Exercise tjlee 2024-10-11 日文系一年級b班 今年18歲~ 興趣:睡覺、聽歌、看動漫 喜愛的飲料是50嵐裡的四季珍椰青 喜歡吃薄荷巧克力冰淇淋、香菜 願望是可以出國遊玩 knitr::include_graphics("https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTLcNW_mfhdHbi9b2TOWZKlD2-ObY8N7ZWa0w&s")...
120 sym 1 img
Document
knitr::include_graphics("https://asia.sega.com/p3r/cht/resources/img/top/character2_35a3dc87ea1a02e2e3d6397d46e1cbf9.webp") 小曾，日文系，想去日本玩，畫畫，動漫，玩遊戲，新竹人，住宿，學餐普通 不太常出門玩，喜歡吃燒肉丼，吉野家的燒肉丼好吃， 讀光復高中，就讀日文系，甄選入�...
92 sym 1 img
Document
1 介紹者 水母 2 照片 3 敘述 一年級日文系， INTP， 喜歡找怪人當朋友， 容易被他人的意見帶走， 稍微有一點溝通不良， 喜歡吃和睡和錢， 重視物質 1.你認為,一個完全不認識你的人,如果透過你的夥伴所製作的藝術作品和敘述有關於你的文字來認識你的話,能夠真...
833 sym 1 img