aurielfournier

library(stringr)
library(tidyverse)
fromdat <- data.frame(site = c("syr1","syr2","syr3"),
                      date1 = c("01/02/22","02/03/2022", "datestuff"),
                      temp1 = c(35),
                      count1 = c(4,5,6),
                      date2 = c("date2stuff"),
                      temp2 =c(37),
                      count2 = c(99,100,101))

aurielfournier

dat <- data.frame(x=c("C-1","C-2","C-10"),
                  y=c(1,2,3))

# in the wrong order
ggplot(data=dat, aes(x=x, y=y))+
  geom_point()

dat$x <- factor(dat$x, levels=dat$x)

# in the right order

aurielfournier

library(tidyr)

long <- data.frame(Lname = c("A","B","C"),
                   c = c("c1","c2","c2"),
                   country=c("NZ","NZ","AL"))

> pivot_wider(data=long, values_from="Lname",names_from="country")
# A tibble: 2 x 3
  c     NZ    AL   
  <chr> <chr> <chr>

aurielfournier

library(ggplot2)

dat1 <- data.frame(y=c(1,2,3,4,5),
                   x=c("a","b","c","d","f"))

dat2 <- data.frame(y=c(1,2,3,4,5),
                   x=c("b","c","d","e","f"))


plot1 <- ggplot(dat=dat1, 

aurielfournier

 4 medium carrots grated (about 2 cups)
1/2 c walnuts chopped
1 c white flour
1 c wheat flour
1 1/2 tsp. baking soda
2 tsp. baking powder
2 tsp. cinnamon
2 c sugar
4 eggs
3/4 c oil

aurielfournier

Could not fetch http://?/UNC/server/users/afournier/My%20Documents/R/win-library/3.6/rmarkdown/rmd/latex/default-1.17.0.2.tex
HttpExceptionRequest Request {
  host                 = ""
  port                 = 80
  secure               = False
  requestHeaders       = []
  path                 = "/"
  queryString          = "?/UNC/server/users/afournier/My%20Documents/R/win-library/3.6/rmarkdown/rmd/latex/default-1.17.0.2.tex"
  method               = "GET"
  proxy                = Nothing

aurielfournier

https://twitter.com/draubreytauer/lists/marine-scientists

https://twitter.com/SWMStweets

https://twitter.com/GonzoScientist1/lists/women-in-marine-sciences

aurielfournier

dat <- data.frame(a=c(1,2,3),
            b=c(4,5,6))


plota <- ggplot(data=dat,
                aes(x=a, y=b))+
          geom_point()+
          theme(axis.title.y = element_blank())

aurielfournier

library(ggplot2)

dat <- data.frame(group = c("a","a","b","b","c",'c'),
                  rate = c(65, 35, 80, 20, 40, 60),
                  pf = c("p","f","p","f","p","f"))


ggplot(data=dat, 
       aes(x=group, y=rate, fill=pf))+
  geom_bar(stat="identity")

aurielfournier

edit_biblio <- function(filepath=
                          "./inst/metadata-tables/biblio.csv",
                        outdir=getwd(),
                        outfilename="biblio"){
  ui <- shinyUI(fluidPage(
    
        wellPanel(
          div(class='row',
              div(class="col-sm-6",
                  actionButton("save", "Save"))