Bitcoin's first price of $0.003, the myth of digital gold debunked with R

Hello, crypto enthusiasts! We've got a really exciting topic for you today: have you ever wondered what the first price of Bitcoin was? Believe it or not, it was incredibly low!

In this post, we're going to take a look at the price history of Bitcoin through R coding. If you're interested in investing, you shouldn't miss it. It's full of valuable information that can give you new insights into your investment strategy!

Bitcoin's first price, its humble beginnings

Hey guys, do you know what the first price of bitcoin was? Surprisingly, in May 2010, the first transaction price of bitcoin was only $0.003, or about 3 cents in our money. Yes, that's right, bitcoin, which now fetches tens of thousands of dollars, started out with a really insignificant value. Let's take a closer look at this amazing price change in R code.

Analyzing Bitcoin price data with R

First, we'll create a data set of bitcoin prices to analyze the data, and we'll use a simple model of the real data.

# Loading the required library
library(tidyverse)
library(lubridate)

Create # Bitcoin price data
bitcoin_data <- tibble(
  date = seq(as.Date("2010-05-22"), as.Date("2024-11-22"), by = "year"),
  price = c(0.003, 5.27, 13.51, 732, 320, 400, 750, 8250, 3869, 7300, 18800, 56000, 16530, 42258, 91203.83)
)

Check the # data
print(bitcoin_data)

Code commentary

1. library(tidyverse): tidyverse package. These packages provide useful tools for manipulating and visualizing data.
2. library(lubridate): lubridate package. This package makes it easy to manipulate date and time data.
3. bitcoin_data <- tibble(...): tibble function to generate Bitcoin price data.

• date: Generate dates at one-year intervals from May 22, 2010 to November 22, 2024.
• price: Represents the price of Bitcoin in USD for each year.

• print(bitcoin_data): Print the generated data to the console to verify.

Plotting a Bitcoin price trend graph

Now, let's plot a nice graph of Bitcoin's price from its inception to today.

Graph the # Bitcoin Price Trend
ggplot(bitcoin_data, aes(x = date, y = price)) +
  geom_line(color = "gold", size = 1) +
  geom_point(color = "orange", size = 3) +
  scale_y_log10(labels = scales::dollar_format()) +
  labs(title = "Bitcoin Price Journey (2010-2024)",
       subtitle = "Price changes from initial value (Log scale)",
       x = "Year",
       y = "Price (USD, Log scale)") +
  theme_minimal()
  theme(plot.title = element_text(face = "bold", size = 16),
        plot.subtitle = element_text(size = 12, color = "darkgray"))

Code commentary

1. ggplot(bitcoin_data, aes(x = date, y = price))Set the basic structure of the graph using : ggplot2. The x-axis is the date and the y-axis is the price.
2. geom_line(color = "gold", size = 1): Adds a line graph in gold color.
3. geom_point(color = "orange", size = 3): Adds an orange dot to each data point.
4. scale_y_log10(labels = scales::dollar_format()): Set the y-axis to a logarithmic scale, and label it in dollar format.
5. labs(...): Set the title, subtitle, x-axis label, and y-axis label for the graph.
6. theme_minimal(): Apply a minimalist theme.
7. theme(...): Further customize the style of the headings and subheadings.

The shocking difference between Bitcoin's initial price and its current price

Calculate the difference between Bitcoin's initial price and its current price? It's easy to do with R data analysis. The result will blow your mind: from May 2010 to now, 14 years later, the price has increased by a whopping 3,040,127,566.671 TP3T, or 3.01 billion TP3T. That's a lot of money!

Extract # first and last price
first_price <- bitcoin_data$price[1]
last_price <- bitcoin_data$price[nrow(bitcoin_data)]

Calculate the # price increase
price_increase <- (last_price - first_price) / first_price * 100

Output the # result
cat(sprintf("Initial Bitcoin Price: $%.3f\n", first_price))
cat(sprintf("Current Bitcoin Price: $%.2f\n", last_price))
cat(sprintf("Astonishing Price Increase: %.2f%%\n", price_increase))

Code commentary

1. first_price <- bitcoin_data$price: Extract the first price in the dataset.
2. last_price <- bitcoin_data$price[nrow(bitcoin_data)]: Extract the last price in the dataset.
3. price_increase <- (last_price - first_price) / first_price * 100: Calculates the price growth rate.
4. cat(sprintf(...)): Format and output the calculated result.

• The first line outputs the initial bitcoin price.
• The second line outputs the current Bitcoin price.
• The third line outputs the price increase as a percentage.

Organize

So there you have it, the amazing journey of Bitcoin from its initial price to the present day, coded in R. Can you see how unbelievable the value of Bitcoin has grown? Of course, past performance is no guarantee of the future, but it's an interesting glimpse into the potential of the cryptocurrency market.

Once you've mastered these data analysis skills, you'll be able to make better investment decisions. Isn't R coding more fun than you think? Stay tuned for more exciting topics like this. Oh, and aren't you curious about the overall Bitcoin trend? Tracking the Bitcoin Dollar Price Dance in R: Price Trend Analysis for Beginners This post will answer that question!