[오늘의 공부] One-Day 자소서 작성, R로 하트 그리기

One-day 자소서 작성 프로그램 참여

오전 10시부터 오후 5시까지 한양대에서 진행하는 One-Day 자소서 작성 프로그램에 참여했다. 오전에 약 2시간 동안 자소서를 작성하고 1:1 컨설팅을 받았다.

컨설턴트님이 “안왔으면 어쩔 뻔 했냐’며… 왜 좋은 소스를 가지고 활용하지 못하느냐는 말씀을 하셨다. 5년 간 열심히 활동했던 것들을 나 스스로 아무것도 아닌 걸로 만들어버린 것 같아 슬펐다.

오늘 첨삭 받은 걸 다행으로 여겨야겠다. 스타트업 자소서 작성은 다른 방식으로 적어야겠지만 얼개를 잡고 어떤 내용은 넣고 어떤 내용을 뺄 지 배웠다.

R로 고백하는 함수 만들기

str_len() : R에는 문자열 길이를 세려면 따로 라이브러리를 import 해야하는 것 같길래 문자열을 세는 함수를 따로 만들었다. 하트에 메시지를 넣을 때 글이 하트 밖으로 넘치는 것을 막기 위해서 만들었다.
R.love.u() : 하트 plot 위에 전하고픈 메시지가 새겨진다.

str_len <- function(string) {
  s <- unlist(strsplit(string,""))
  return(length(s))  
}

R.love.u <- function(message) {
  # deliver your message with R
  # 
  # Args:
  #   Message : (String)word of what you want to say
  dat<- data.frame(t=seq(0, 2*pi, by=0.1) )
  xhrt <- function(t) 16*sin(t)^3
  yhrt <- function(t) 12*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
  dat$y=yhrt(dat$t)
  dat$x=xhrt(dat$t)
  with(dat, plot(x,y, type="l"))
  with(dat, polygon(x,y, col="pink"))
  
  if (str_len(message) < 20) {
    font_size <- 2.0
  } else if(str_len(message) < 40) {
    font_size <- 1.5 
  } else {
    font_size <- 1
  }
  text(0, 0, message, adj=c(0.5,0), cex=font_size)
}

R.love.u("R Love You")

R_loves_u