ATProto Browser

{
  "text": "He encontrado una entrada de un blog que te explica cómo usar los colores de los álbumes de Weezer para las gráficas en R.",
  "$type": "app.bsky.feed.post",
  "embed": {
    "$type": "app.bsky.embed.images",
    "images": [
      {
        "alt": "Captura del inicio de la entrada de blog. El texto dice así:\n\nSay It Ain’t So: using Weezer album cover colours in R\n12th May 2020By Stephen Royle adventures in code, fun, music\t\n\nI’m a long-term fan of Weezer. Such was the brilliance of their first two albums that I have stuck with them through thick and thin. And dear me, there has been some very thin music. Nonetheless I own every album – thirteen of them. Among them are six albums entitled “Weezer”.\n\n[Imagen]\nWeezer’s “Weezer” albums (source: Wikipedia)\n\nThese records are colloquially referred to by the colour of the album. In chronological order: blue, green, red, white, teal and black. It struck me that these colours have a dataviz quality to them. They could be used for making colour palettes in R.",
        "image": {
          "$type": "blob",
          "ref": {
            "$link": "bafkreialwiuho5ggtpak2e4rysxpt5crz45uibzqzqradexb5lob7gl754"
          },
          "mimeType": "image/jpeg",
          "size": 371745
        },
        "aspectRatio": {
          "width": 701,
          "height": 919
        }
      },
      {
        "alt": "Captura de la entrada de blog demostrando el uso de los colores en R. El texto dice así:\n\nLet’s use them in R!\n\nWe can specify the colours in hex format as a character vector and use them direct in ggplot, as shown below. Here I am plotting each “Weezer” album’s rating on rateyourmusic.\n\nlibrary(tidyverse)\nlibrary(extrafont)\n \n# weezer colours taken from weezer albums\nweezer_album_colours <- c(\"#189BCC\",\n                    \"#BECC41\",\n                    \"#EA213A\",\n                    \"#F3F3F3\",\n                    \"#2BBCBB\",\n                    \"#0D0D0D\")\n# ratings of weezer albums from rateyourmusic.com taken on 2020-05-09\ndf <- data.frame(year=c(\"1994\", \"2001\", \"2008\", \"2016\", \"2018\", \"2019\"),\n                 rym=c(3.91,3.02,2.51,3.46,2.18,2.18))\n# make a plot using these colours\np1 <- ggplot(df, aes(x = year, y = rym, fill = year)) +\n  scale_fill_manual(values = weezer_album_colours) +\n  geom_bar(stat=\"identity\", colour = \"black\") +\n  labs(title = \"Ratings for Weezer's Weezer albums\",\n       subtitle = \"Data from rateyourmusic.com\",\n       x = \"weezer\", y = \"Rating\") +\n  theme(text = element_text(family = \"Futura-Medium\"),\n        legend.position=\"none\")\nggsave(\"ratings.png\",p1,dpi = 300)\n\nDebajo del código hay una imagen mostrando el gráfico de barras. Las barras están coloreadas como los álbumes de Weezer (en orden: Blue, Green, Red, White, Teal, Black).",
        "image": {
          "$type": "blob",
          "ref": {
            "$link": "bafkreiankociaap4q357yvyxwgwtjjmlyb22b6gnhagfsjhf564hfa34ge"
          },
          "mimeType": "image/jpeg",
          "size": 264266
        },
        "aspectRatio": {
          "width": 552,
          "height": 1009
        }
      }
    ]
  },
  "langs": [
    "es"
  ],
  "createdAt": "2025-05-14T11:38:21.806Z"
}
Post
