Packages

library(dplyr)
## Warning: package 'dplyr' was built under R version 3.3.2
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(stringr)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.3.2
library(tidytext)

1 SPEECHES - Macron vs. Churchill & Schumann

1.1 European Macron’s Speech on 07 September 2017 in Athens to hail Democracy

=> Available on http://www.elysee.fr/declarations/article/discours-du-president-de-la-republique-emmanuel-macron-a-la-pnyx-athenes-le-jeudi-7-septembre-201/

text <- c("I do not know, ladies and gentlemen, if I should take your applause as indicative of your relief that I have stopped speaking in Greek or your thanks for my having tried. I thank you anyway... Thank you, Prime Minister, dear Alexis, thank you, ladies and gentlemen, for welcoming me to this place, for welcoming me today, but before I start my speech today, I would like to more than spare a thought for my fellow citizens, I wish to stand with those who, since yesterday, are living in worry and destitution, several thousand kilometres from here in Saint Barthelemy and Saint Martin, who have been hit by a terrible hurricane. The hurricane has left victims. damaged lives and serious damage in its wake and, this evening, I would like to spare a thought for them, too.
          Thank you, Prime Minister, for welcoming me here. Our presence, your presence, here this evening is the recognition of a profound and secular friendship which links Greece and France. Because there are few nations who have transmitted and inherited in some way the values which have made and make our Europe in the way our countries do. Very few nations have such an intimate link between their own culture and their identity. Indeed, these ties which unite us, are the ties of freedom, Human Rights, values which have made our Europe and which no vicissitude of history has been able to sway.
          I cannot, however, limit myself to the emotion of these historical sites, no matter how strong. Rather, I wish to hear what they have to say. Because these places demand that we listen to them, because it was here that the modern State was created, here that the city of Athens was built patiently by the sovereignty of the people, the sovereignty of their destiny, we must ask ourselves without complacency “what have we Europeans done with our sovereignty?”. Because it was here that the risk of democracy was taken, the risk that puts the government of the people into the hands of the people in the belief that respectable law is better decided by as many as possible and not as few, we should ask ourselves: what have we done with our democracy?
          And the words that, not far from here, Pericles spoke in honour of warriors who died in war, let us listen to them and reflect even more deeply. “Freedom”, he said, “is our rule for governing the Republic, and our daily relationships. Suspicion has no place.” But we Europeans, do we still have trust in ourselves?
          On the Pnyx, it was free speech, debate and even controversy that prevailed. Therefore, I would like to be frank with you this evening and speak plainly: in Europe today, sovereignty, democracy and trust are in danger. You will know this better than anyone, because the so-called “Greek crisis” brought this into the open.
          This crisis was not entirely restricted to Greece. It was a European crisis, and in a sense, I would dare to say, a European failure. Should we just accept to swallow this bitter pill and give up on the European ideal? Should we give up this fight, because we have not been able to live up to the European promise? Or should we instead resort to summits during every crisis, every bump in the road, a few individuals locked away in a room not talking to anyone else? This is tantamount to resignation and would be a profound mistake, a double error.
          Firstly because Europe has always been built by triumphing from war and failure. Greece itself joined the European Community to turn the page following years of military dictatorship. Europe does not exist without this unbending willpower! Europe itself has always been nothing but a metamorphosis! Those who would like to fantasize about an identity set in stone know nothing of the myth born on these shores, the myth of a constant metamorphosis! We should not aim, therefore, for such an identity, especially when we have made mistakes. When Europe stops, it betrays itself and runs the risk of dismantling itself.
          It would also be a mistake because we see history moving faster, every day contributing to the break-up of the order which established itself over the last thirty years making it impossible to say what order will come from the current changes.
          So yes, in a world where the alliances of the past are, in some cases, breaking apart, and new risks are appearing rocking countries that we believed steadfast, bringing out new powers in this world where our values, that which held us in the certainty that the established order was ours, are profoundly shaken. Europe is one of the last havens where we collectively continue to harbour a certain idea of humanity, law, freedom and justice. We need Europe now more than ever. The world needs Europe. Organizing its dismantlement would therefore make no sense. It would be a sort of political and historical suicide.
          That is why, this evening, I want us collectively to get back that primary energy, the force to rebuild our Europe, not to continue what does not work or try to tweak it, but to start with an uncompromising critical assessment of these last years, to give us the primary strength, the primary ambition.
          As you mentioned, Prime Minister, there was the founding generation who created an unprecedented space for peace, freedom and prosperity. There was a generation who grew this Europe, sometimes leading it astray, taking the wrong path. Our generation has a simple choice, a unique alternative: continue to manage Europe as it is, pretending not to see what is under our eyes. In this case, this generation will take the responsibility of letting Europe die. It will die from the clashes, brutal exits, or it will be left to wither and die, year on year.
          But the other choice, which I am going to propose to you this evening, it to rebuild Europe, because our generation can choose to rebuild Europe today, now, by radically criticizing it because we would be wrong to leave the criticizing solely to those who hate Europe! Those who love Europe should be able to criticize Europe to rebuild it, correct it, improve it, rebuild it! But with this same energy, same desire, not figures, not technicalities, not bureaucracy, no! We must bring back the primary force of hope which led certain individuals in Europe, despite the divisions of the post-war period, to desire a bigger story, more beautiful than themselves.
          Indeed, I am here tonight to talk about these hopes, these three hopes of sovereignty, democracy and confidence.Reconquering our sovereignty is essential. Because I will not allow the so-called “sovereigntists” be the only ones to use this term. No, sovereignty is what allows us to decide for ourselves, to decide our own rules, our own future, it is what makes our world. Sovereignty is not the property of those who prefer to withdraw into national borders! Do not leave sovereignty to those who wish to wither, those who pretend that looking inwards is a defence, a protection, a decision when actually it is a hate for others, a refusal of those who come from abroad, a denial of decades of shared history where we have finally tried to move beyond nationalisms!
          True sovereignty is constructed, it must be constructed in and by Europe! This is what we believe in! The sovereignty that we want, is sovereignty which is there precisely to bring our forces together to build together a European power to decide not to be subjected to what the superpowers will do better than we will.
          I believe in sovereignty, our national sovereignties, but I believe in this European sovereignty. Why? Because our challenges are no longer on a nation-scale. Take climate change and the disasters it is producing! Take the migration challenge that your country had to face a little over two years ago and you are still dealing with the consequences, the fears that it created, the beautiful stories that came from it. Take terrorism which, in each of our societies where we thought we were safe, has broken lives and made us doubt. Take the nuclear powers emerging where we thought we had secondary powers.
          Faced with this world and each of these new risks, faced with the risk of economic and financial crises which we have suffered, that you have suffered at your heart for nearly ten years now, how can we protect ourselves? As Nations alone? Are these people really serious? Do they want to lie to the people once again? No, nations have weight! They decide democratically! Yes! The right level is the European level! Our European sovereignty is what will enable us to be digital champions, build a strong economy, and make us an economic power in this changing world. And not be subjected to the law of the fittest, the Americans and, soon, the Chinese, but our own law.
          It is Europe that will enable us to acquire the means to protect us from these great global shifts, and from new migrations, but above all to prevent them. It is Europe that will allow us to generate ambition for development with Africa and with the Middle East, so as to be present, and to help them develop and build a future.
          It is through a Europe of new, greater cooperation that we will prevent terrorism and manage to eradicate it. And because we must never forget that terrorists want to see just one thing from us: shrinking inwards, withdrawing, fear of others. That is their greatest weapon. So we will cede no ground.
          Face with all these risks, I believe, like you, in European sovereignty that will allow us to defend ourselves and to exist, to defend ourselves by applying our rules and preferences. Who will protect respect for your lives and for the data of your businesses in this digital world? Europe, and no other region. Who will protect us in the face of climate change? A Europe that seeks another form of energy production, a Europe that will protect us from dependence on authoritarian powers that sometimes have a grip on us. That is the sovereignty we need to believe in, which we need to find once more, because we have our own European preferences and we must never forget that. Not being sovereign means allowing others to choose in our place.
          But are we like them? Is there any other continent with such a commitment to freedom, democracy and the social balances that hold us together, to this reconciliation of justice and freedom which are at last combined? I know regions where they like the economy and development, but where political authority prevails over freedom, in Asia. I know great powers that love freedom and have succeeded in capitalism, but which do not have the same commitment we have to equality and social justice, on the other side of the Atlantic.
          But nowhere else is there such a political and social space where collective preferences – our preferences – are defended as such. That is what European sovereignty is about! If we give it up, the result is simple: we will be subject to the rules of one side or another.
          Yes, our choice is to overhaul Europe without repeating the mistakes of the past.
          In the early years of the eurozone, we made many mistakes, sometimes based on lies. Here, we need to say that too with humility and determination. Sometimes we have lied to the people, suggesting that life in Athens could be like that in Berlin without reform, and that was not true. But who paid for that? The political leaders who lied? No, the people who believed those lies.
          It was the Greek people who paid, after all these years, when the crisis broke out – the financial crisis that became a sovereign debt crisis. The Greek people, after years during which we sought to correct all those mistakes through policies which, born of distrust, created, in one fell swoop, it has to be said, injustices and incomprehension. We lost the zest for social cohesion, which held us together. We lost it because we lost ourselves in a civil war, within Europe, between powers that had lost confidence in one another.
          That is the history of the decade that is coming to an end: a form of internal civil war where we have sought out our differences, our little betrayals, and where we have somehow forgotten the world in which we live. A civil war where we have preferred to correct these little differences and betrayals, forgetting that, opposite, there are radically different powers and that the only relevant question was how to make the eurozone an economic power that could stand up to China and the United States. How to make our Europe a diplomatic and military power capable of defending our values and interests in the face of authoritarian regimes that emerge from deep crises that can shake our societies. That is our only challenge, not another.
          So yes, I want us to rediscover the strength of a sovereignty that is not national but European, by reconciling a Europe capable once more of combining responsibility and solidarity.
          That will require common goals and a will to defend what made us what we are through essential institutional reforms. In the coming weeks, I will come back in detail with a roadmap that I will propose to all our European partners. But yes, we will need a Europe in which we once again dare to defend social and fiscal convergence, because that is what holds us together and avoids the divergences that split us asunder. We need to rediscover the zest of this eurozone and invent strong governance that will ensure our sovereignty, with a eurozone budget, and a genuine executive responsible for that eurozone, and a eurozone parliament he will have to report to.
          Through concrete proposals that I hope will be speedy, we need to overhaul this sovereignty to allow our Europe to rise above its petty divisions and build, over the next decade, the terms of its sovereignty. Not for those of the past, but for you, young people.
          We who are leading Europe today cannot pretend nothing is happening. We still have that luxury. But in ten, fifteen, twenty years, what Europe will we leave to the next generations?
          I do not want to write your future, but I want to say, quite simply, that you can choose, that you have that same luxury we have had, that you can make choices that are, of course, sometimes difficult. But choices nonetheless. That is what European sovereignty is about. That is what will allow you, young Europeans, to write your own future. That is what means that what we have experienced in the last decade is not, in any case, equal to our history! Because what have we promised to Greece’s young people? What have we given them in the last decade? For half of them, austerity and joblessness! What have we offered them? A bright future – if they were prepared to go to Berlin or Paris, for example. That was not the initial promise. The initial promise was that of a sovereign Europe where people could succeed at home, in a wider, stronger space than mere nations. So that is what we need to rediscover. That is the heart of European sovereignty, your sovereignty, as young people, to choose!
          That sovereignty is the ability of nations to decide their own destiny. What is that worth, if it is not the people who decide the course that we follow? And how can we not see that Europe’s failures over so many years are also failures of democracy?
          Through its scale and the expansion it saw, through the diversity it adopted, the European project suddenly encountered, some ten years back, a refusal from the people, from its peoples. What happened in 2005, in Europe, in France, in the Netherlands, was that peoples among the founding States suddenly decided that the project was not for them anymore. Did we listen? No, we did not. Those who led Europe at the time decided not to respect their choice. They pretended nothing had happened, and sought compromises aside from the people, so as to continue a method that for decades had worked so well: building Europe a little to the side and explaining it afterwards.
          What happened in 2005 is that a page was turned and we did not realize straight away that Europe could no longer move forward without its peoples. It could no longer continue towards the destiny it had chosen itself, desired and therefore explained, driven by the peoples of Europe together. What happened a few months ago in the United Kingdom is not a whole different story: suddenly, the people of that island rose up against choices often supported by its own leaders and said “this Europe is not for me. I do not have my place here, and I no longer understand it. These rules have become absurd. Look at this Europe where I am losing my own rights, and where I am expected to make more and more effort to live less well.” That is what the British people said last year.
          So yes, these ballots have brought an end to an adventure in which Europe had always moved forward as if sheltered from our people’s will. And when I fight the sometimes bureaucratic excesses that mean that Europe seeks to move forward through rules its citizens no longer understand, that mean that Europe moves forward by controlling every detail of daily life because it has lost its grand purpose, it is to rediscover the zest of this European democracy. When I fight for a revision of the posted workers directive, I fight against a Europe that has ended up producing absurd rules where our peoples are no longer able to understand the societies in which we want them to live.
          Everything that has held us together for decades is coming apart because these approaches are becoming absurd. We need to play our part in addressing this: it is we, those who believe in Europe, who have allowed cracks to appear in democracy, distancing peoples and making them hostile. And similarly, it is we who must rediscover the path of sovereignty: we need the other form of courage, rediscovering the path of democracy.
          That will require, first and foremost, a new method to overhaul Europe. That is why I want this roadmap that I intend to propose to all EU Member States – this roadmap to build the future of our Europe over the next decade – not to involve a treaty negotiated sneakily behind closed doors in Paris, Brussels or Belin. No, I propose that we try a new method: that by the end of the year, we sketch out the major principles of our approach, where we want to take our Europe, and define our objectives clearly. We can then, at the beginning of next year, submit those principles and objectives to the peoples of Europe. I propose that wherever leaders choose to take this path – something I hope for most earnestly – in each of the Member States, we organize six months of consultations, democratic conventions that will be an opportunity for our peoples, throughout our countries, to discuss the Europe they want to see.
          Lastly, I want us to put behind us this sort of childlike dilemma Europe is currently tied up in. A dilemma where on the one side, some want to make the people say “yes” or “no” and manipulate them for months, where the referendum becomes the weapon of populists and anti-Europeans alone; and where on the other, those who believe in Europe end up afraid of their peoples and hide behind their own doubts, saying to themselves “let’s move forward but without changing the treaties, for fear of having to hold another referendum. Let’s move forward in baby steps, behind closed doors. The people will not understand.”
          We need to choose another, a third way, the one invented here, at this very spot. That way was not that of demagogy, but that of democracy, of controversy, of constructive debate driven by critical thinking and dialogue. It was the way that involved entering into the detail of each question and its complexity, to decide what we want to do for the common city. That is what I want to see in the first half of 2018 in all the countries of our continent, of Europe, to rediscover the zest of what was invented at this spot where we are standing, and which formed the basis for our democracies. So yes, through these six months of democratic conventions, we should debate this roadmap, the principles for which the governments will have designed, and then we can meet again to reconcile them and, on that basis, after debate, including grassroots debate locally and digital debates across Europe. Then we can build what will be the foundations for an overhaul of Europe for the coming ten, fifteen years, we can build the terms of what we really want together. That is the ambition I want to see as a method in the coming months.
          Looking back over Greece’s history means seeing the strength of this democracy and debate. That is I what I want us to rediscover together for our Europe. But beyond that, I want the everyday operation of tomorrow’s Europe to once again be more democratic. I want us to put behind us the rules invented by the few for the many, and to reinject more democracy into everyday operations.
          That is why I am advocating transnational lists for the next European elections. Our British friends have decided to leave. We should not try to redistribute the few seats they free up in the European Parliament between us. No! Just think: at last we can have a European debate, and European lists, a genuine European democracy that will live through countries. And tomorrow, if we want a more integrated eurozone, an avant-garde core of European countries, we should ensure greater democratic strength. We should establish a eurozone Parliament to design the rules to make those who make decisions democratically accountable – which is not the case today.
          All that is what I want us to rediscover together, because the true fuel of Europe is not a hunger for standards, but democratic vitality. Rediscovering the initial promise of Europe is possible if we assume our desire for sovereignty and our need for democracy. To once again cite Pericles, we will achieve nothing in distrust and treachery. For years, this distrust has undermined the adhesion that is essential to the European project. It has worn away confidence which now needs to be rebuilt. That requires a return to the very meaning of the European adventure, to the deeply held conviction that supports it.
          As Europeans, we share a history and a destiny. We can rebuild confidence because we will rediscover this path. Look where we are standing: even now, during the night, you can see the hill behind me: the Acropolis. Whoever you are, whatever your age, your nationality and your origin, does the miracle of this hill, the columns of the Parthenon, the silhouette of the Erechtheion and its caryatids not awaken in you the feeling that something was born here that concerns you, that belongs to you, that speaks to you?
          Yes the Acropolis of Athens is a mirror reflecting our European identity, we recognize ourselves, we read our common destiny in this mirror and this temple was that of the gods from antiquity, but today the beliefs that created it have vanished and yet we still have this force in our minds. We can still fell its sacred element.
          As André Malraux said, some nearly sixty years ago in this very place, there is a hidden Greece that is lying in the hearts of all men and women of the Western world. This hidden Greece is what we do not grasp, which means that even if we allow ourselves to get caught up in our trivial European debates and these civil wars that I mentioned earlier, we can be a few thousand miles away and still recognize a European, an image that reminds us of Europe, a feeling that unites us, a smell, a colour, something we read, that makes us feel European again.
          This Europe of literature, cafés, public discussion, our peoples’ warmth and civility that exists nowhere else in the world, is one whose true cement is culture, our culture.
          We will never fight enough for Europeans to recognize of their own accord this shared foundation that for centuries has been expressed in myriad ways, the Europe of the literary sets, reviews, travellers, libraries and ideas, the Europe of luminous capitals and fascinating fringes, this Europe that has existed through so many and so many paths that at times did not even mention its name, that did not wait for our institutions, our treaties, our reorganizations, and our controversies. The Europe of Madame de Staël and Benjamin Constant spoke nearly every language, it was there, this Europe that has united us for so many centuries, it is the Europe of culture. And for this spirit of recognition and mutual understanding to live, and for us to finally restore European confidence, we should clearly begin with culture as our basis.
          Student exchanges are key, our young people should travel to even a greater extent, academic exchanges, learning one another’s language, far beyond my fervent attempts earlier, this is what should make our Europe vibrant, not obscure rules and decisions. That means being even more ambitious in this Europe of culture, university and academic exchanges.
          In the proposals we will make, in this ten-year roadmap, I would like to see us embrace this bold and far-reaching ambition so that this Europe of culture, knowledge and language sharing can be completely overhauled.
          We also need a Europe of heritage. I spoke of the Acropolis whose restoration and new museum were extremely costly. All that makes up our common history—Greek art, Roman art, medieval, baroque and classical art—all of these buildings, all of these works are the very substance of our collective memory and our being.
          Protecting and perpetuating them must be a concern of all Europeans. When civilization is attacked, its culture and its heritage is attacked. Look at what has happened throughout the Near and Middle East and in Africa! Therefore we must defend this heritage, support it, reinvent it, reclaim it as our own, because it is our identity and our future!
          The few European Union contributions do not suffice to assist either Greece or Italy in meeting the huge challenges in this regard or so many other countries, and France is not the exception to the rule, where what reflects our past suffers from indifference and even neglect.
          I would therefore like us to be able to hold cultural heritage conferences at European level as soon as possible to adopt a coordinated approach to these areas, in order to restore genuine ambition for heritage and culture. Let us start over through culture and so that Europe can protect heritage and reinvent its future. I would suggest that these conferences be held in Athens where everything began and we will see that through culture, we can rediscover what unites us. Through culture and heritage, we will rediscover this power of exchange and of the sites that we do not understand, which means that moving past division, at every crucial time for our Europe, we have decided to move forward together, to build something that is stronger than ourselves.
          I would also like to review the conditions for the circulation of academic and artistic work in Europe. For literature, philosophy, poetry, history, geography, film, live performances and sciences are our common ground. We therefore need to create European programmes for priority works, whether they be part of the cultural heritage of every country or a contemporary creation. Knowledge we have of each other comes from all of this, from these chance meetings. Today, each publisher, writer, translator and designer is doing what they can to become known, and to translate what should be translated, however, more needs to be done. We need to organize this essential area of our culture, to reform a Europe of translators, of communicators, of this cultural ambition that unites us. Languages, inventions, our common imagination are what has forged Europe, overcoming our differences. We, Europeans, are the inhabitants of this improbable Babel that the diversity of language and traditions continue to enrich and enthusiastically animate.
          So, yes, let us once again acquire this ambition for culture, through which our confidence will be revitalized. Sovereignty, democracy and culture are the three areas of opportunity that I would like to offer to the young people of Europe in the hope that they will seize them and consider them their own. Their future lies in these areas, their responsibility, our responsibility, the responsibility of our generation of which I spoke earlier, is to ensure that young people discover the meaning of a strong and legitimate Europe. So yes, some people may consider this undertaking to be destined for failure. I am sure some people will ask if we will talk about technical aspects, details or texts and ask whether we should change a treaty or not. Or if we should amend a treaty and if so, what articles? We will address these questions but since we are lost in these tangled discussions, which have become confusing, we have veered off course and lost sight of our strong determination and ambition. But should this make us fear this extreme ambition? Should we fear what previous generations did not?
          Imagine the concern the founders of Europe had to hide when they extended their hand to their former enemies on a continent that was still filled with victims. Imagine the crazy ambition that some people described they had when they were getting ready to tell us that we were going to have a single currency. That was just thirty years ago!
          Are we no longer allowed to have ambition? I think we are. So the challenge I am putting forth to you tonight, a few weeks before all of the European countries, what France thinks, wants and prefers, to submit to the debate: are you afraid of the European ambition that will help you rediscover the meaning of sovereignty, democracy and culture?
          Look at the time that we are sharing, it is the moment of which Hegel spoke, the moment when the owl of Minerva takes flight. This is such a wonderful time because there is something comfortable and reassuring about it. The owl of Minerva provides wisdom but it continues to look back, it is also what Hegel said with humility when speaking of philosophy, it looks back because it is always so easy and so nice to look at what we have, a determined space of what we know!
          Do not be like the owl of Minerva, have this crazy ambition again to desire a stronger, more democratic Europe, revitalized by its culture and what unites us! I am asking you and especially you, the young people of Europe, to have this extreme and perhaps a bit crazy ambition!
          What we are hoping for is in our hands; let us desire this together for ourselves and our children! I promise you that we will succeed! To do so, apply the words of the poet, George Seferis, and I quote: “And when you look for the miracle you’ve got to scatter your blood to the eight points of the wind because the miracle is nowhere but circulating in the veins of man.”
          So let us together give this miracle a chance for our Europe!
          Thank you.")
text<-as.character(text)
text<-str_replace_all(text, "[\r\n]" , "")
text<-str_replace_all(text, "  " , "")
text<-strsplit(text, ".", fixed = TRUE)
text_df<-data.frame(line=1:195,text=text)
colnames(text_df)<-c("lines","text")
text_df$text<-as.character(text_df$text)

text_df<- text_df %>%
  unnest_tokens(word, text)

data(stop_words)

text_df <- text_df %>%
  anti_join(stop_words)
## Joining, by = "word"
text_df<- text_df %>%
  count(word, sort = TRUE)
text_df %>%
  filter(n > 7) %>%
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n)) +
  geom_col() +
  xlab(NULL) +
  coord_flip()
## Warning: package 'bindrcpp' was built under R version 3.3.2

text_df$author<-rep(c("macron"),NROW(text_df))

1.2 Mr Winston Churchill speaking in Zurich 19th September 1946

“We must build a kind of United States of Europe”

http://www.churchill-society-london.org.uk/astonish.html

text2<-c("This noble continent, comprising on the whole the fairest and the most cultivated regions of the earth; enjoying a temperate and equable climate, is the home of all the great parent races of the western world. It is the fountain of Christian faith and Christian ethics. It is the origin of most of the culture, arts, philosophy and science both of ancient and modem times.

         If Europe were once united in the sharing of its common inheritance, there would be no limit to the happiness, to the prosperity and glory which its three or four hundred million people would enjoy. Yet it is from Europe that have sprung that series of frightful nationalistic quarrels, originated by the Teutonic nations, which we have seen even in this twentieth century and in our own lifetime, wreck the peace and mar the prospects of all mankind.
         
         And what is the plight to which Europe has been reduced?
         
         Some of the smaller States have indeed made a good recovery, but over wide areas a vast quivering mass of tormented, hungry, care-worn and bewildered human beings gape at the ruins of their cities and homes, and scan the dark horizons for the approach of some new peril, tyranny or terror.
         
         Among the victors there is a babel of jarring voices; among the vanquished the sullen silence of despair.
         
         That is all that Europeans, grouped in so many ancient States and nations, that is all that the Germanic Powers have got by tearing each other to pieces and spreading havoc far and wide.
         
         Indeed, but for the fact that the great Republic across the Atlantic Ocean has at length realised that the ruin or enslavement of Europe would involve their own fate as well, and has stretched out hands of succour and guidance, the Dark Ages would have returned in all their cruelty and squalor.
         
         They may still return.
         
         Yet all the while there is a remedy which, if it were generally and spontaneously adopted, would as if by a miracle transform the whole scene, and would in a few years make all Europe, or the greater part of it, as free and as happy as Switzerland is today.
         
         What is this sovereign remedy?
         
         It is to re-create the European Family, or as much of it as we can, and provide it with a structure under which it can dwell in peace, in safety and in freedom.
         
         We must build a kind of United States of Europe.
         
         In this way only will hundreds of millions of toilers be able to regain the simple joys and hopes which make life worth living.
         
         The process is simple.
         
         All that is needed is the resolve of hundreds of millions of men and women to do right instead of wrong, and gain as their reward, blessing instead of cursing.
         
         Much work has been done upon this task by the exertions of the Pan-European Union which owes so much to Count Coudenhove-Kalergi and which commanded the services of the famous French patriot and statesman, Aristide Briand.
         
         There is also that immense body of doctrine and procedure, which was brought into being amid high hopes after the First World War, as the League of Nations.
         
         The League of Nations did not fail because of its principles or conceptions. It failed because these principles were deserted by those States who had brought it into being. It failed because the Governments of those days feared to face the facts and act while time remained. This disaster must not be repeated. There is, therefore, much knowledge and material with which to build; and also bitter dear-bought experience.
         
         I was very glad to read in the newspapers two days ago that my friend President Truman had expressed his interest and sympathy with this great design.
         
         There is no reason why a regional organisation of Europe should in any way conflict with the world organisation of the United Nations. On the contrary, I believe that the larger synthesis will only survive if it is founded upon coherent natural groupings.
         
         There is already a natural grouping in the Western Hemisphere. We British have our own Commonwealth of Nations. These do not weaken, on the contrary they strengthen, the world organisation. They are in fact its main support.
         
         And why should there not be a European group which could give a sense of enlarged patriotism and common citizenship to the distracted peoples of this turbulent and mighty continent and why should it not take its rightful place with other great groupings in shaping the destinies of men?
         
         In order that this should be accomplished, there must be an act of faith in which millions of families speaking many languages must consciously take part.
         
         We all know that the two world wars through which we have passed arose out of the vain passion of a newly united Germany to play the dominating part in the world.
         
         In this last struggle crimes and massacres have been committed for which there is no parallel since the invasions of the Mongols in the fourteenth century and no equal at any time in human history.
         
         The guilty must be punished. Germany must be deprived of the power to rearm and make another aggressive war.
         
         But when all this has been done, as it will be done, as it is being done, there must be an end to retribution. There must be what Mr Gladstone many years ago called 'a blessed act of oblivion'.
         
         We must all turn our backs upon the horrors of the past. We must look to the future. We cannot afford to drag forward across the years that are to come the hatreds and revenges which have sprung from the injuries of the past.
         
         If Europe is to be saved from infinite misery, and indeed from final doom, there must be an act of faith in the European family and an act of oblivion against all the crimes and follies of the past.
         
         Can the free peoples of Europe rise to the height of these resolves of the soul and instincts of the spirit of man?
         
         If they can, the wrongs and injuries which have been inflicted will have been washed away on all sides by the miseries which have been endured.
         
         Is there any need for further floods of agony?
         
         Is it the only lesson of history that mankind is unteachable?
         
         Let there be justice, mercy and freedom.
         
         The peoples have only to will it, and all will achieve their hearts' desire.
         
         I am now going to say something that will astonish you.
         
         The first step in the re-creation of the European family must be a partnership between France and Germany.
         
         In this way only can France recover the moral leadership of Europe.
         
         There can be no revival of Europe without a spiritually great France and a spiritually great Germany.
         
         The structure of the United States of Europe, if well and truly built, will be such as to make the material strength of a single state less important. Small nations will count as much as large ones and gain their honour by their contribution to the common cause.
         
         The ancient states and principalities of Germany, freely joined together for mutual convenience in a federal system, might each take their individual place among the United States of Europe. I shall not try to make a detailed programme for hundreds of millions of people who want to be happy and free, prosperous and safe, who wish to enjoy the four freedoms of which the great President Roosevelt spoke, and live in accordance with the principles embodied in the Atlantic Charter. If this is their wish, they have only to say so, and means can certainly be found, and machinery erected, to carry that wish into full fruition.
         
         But I must give you warning. Time may be short.
         
         At present there is a breathing-space. The cannon have ceased firing. The fighting has stopped; but the dangers have not stopped.
         
         If we are to form the United States of Europe or whatever name or form it may take, we must begin now.
         
         In these present days we dwell strangely and precariously under the shield and protection of the atomic bomb. The atomic bomb is still only in the hands of a State and nation which we know will never use it except in the cause of right and freedom. But it may well be that in a few years this awful agency of destruction will be widespread and the catastrophe following from its use by several warring nations will not only bring to an end all that we call civilisation, but may possibly disintegrate the globe itself.
         
         I must now sum up the propositions which are before you.
         
         Our constant aim must be to build and fortify the strength of the United Nations Organisation.
         
         Under and within that world concept, we must re-create the European family in a regional structure called, it may be, the United States of Europe.
         
         The first step is to form a Council of Europe.
         
         If at first all the States of Europe are not willing or able to join the Union, we must nevertheless proceed to assemble and combine those who will and those who can.
         
         The salvation of the common people of every race and of every land from war or servitude must be established on solid foundations and must be guarded by the readiness of all men and women to die rather than submit to tyranny.
         
         In all this urgent work, France and Germany must take the lead together.Great Britain, the British Commonwealth of Nations, mighty America, and I trust Soviet Russia - for then indeed all would be well - must be the friends and sponsors of the new Europe and must champion its right to live and shine.")
text2<-as.character(text2)
text2<-str_replace_all(text2, "[\r\n]" , "")
text2<-str_replace_all(text2, "  " , "")
text2<-strsplit(text2, ".", fixed = TRUE)
text_df2<-data.frame(line=1:70,text=text2)
colnames(text_df2)<-c("lines","text")
text_df2$text<-as.character(text_df2$text)

text_df2<- text_df2 %>%
  unnest_tokens(word, text)

data(stop_words)

text_df2 <- text_df2 %>%
  anti_join(stop_words)
## Joining, by = "word"
text_df2<- text_df2 %>%
  count(word, sort = TRUE)
text_df2 %>%
  filter(n > 2) %>%
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n)) +
  geom_col() +
  xlab(NULL) +
  coord_flip()

text_df2$author<-rep(c("churchill"),NROW(text_df2))

1.3 The declaration of 9th May 1950 is believed to be the founding text of European integration.

Schumann lays out a European organisation that would be responsible for pooling the French and German production of coal and steel.

https://www.robert-schuman.eu/en/declaration-of-9-may-1950

text3<-c("World peace cannot be safeguarded without the making of creative efforts proportionate to the dangers which threaten it. 

         The contribution which an organised and living Europe can bring to civilisation is indispensable to the maintenance of peaceful relations. In taking upon herself for more than 20 years the role of champion of a united Europe, France has always had as her essential aim the service of peace. A united Europe was not achieved and we had war. 
         
         Europe will not be made all at once, or according to a single plan. It will be built through concrete achievements which first create a de facto solidarity. The coming together of the nations of Europe requires the elimination of the age-old opposition of France and Germany. Any action taken must in the first place concern these two countries. 
         
         With this aim in view, the French Government proposes that action be taken immediately on one limited but decisive point : 
         
         It proposes that Franco-German production of coal and steel as a whole be placed under a common High Authority, within the framework of an organisation open to the participation of the other countries of Europe. 
         
         The pooling of coal and steel production should immediately provide for the setting up of common foundations for economic development as a first step in the federation of Europe, and will change the destinies of those regions which have long been devoted to the manufacture of munitions of war, of which they have been the most constant victims. 
         
         The solidarity in production thus established will make it plain that any war between France and Germany becomes not merely unthinkable, but materially impossible. The setting up of this powerful productive unit, open to all countries willing to take part and bound ultimately to provide all the member countries with the basic elements of industrial production on the same terms, will lay a true foundation for their economic unification. 
         
         This production will be offered to the world as a whole without distinction or exception, with the aim of contributing to raising living standards and to promoting peaceful achievements. With increased resources Europe will be able to pursue the achievement of one of its essential tasks, namely, the development of the African continent. 
         
         In this way, there will be realised simply and speedily that fusion of interest which is indispensable to the establishment of a common economic system; it may be the leaven from which may grow a wider and deeper community between countries long opposed to one another by sanguinary divisions. 
         
         By pooling basic production and by instituting a new High Authority, whose decisions will bind France, Germany and other member countries, this proposal will lead to the realisation of the first concrete foundation of a European federation indispensable to the preservation of peace. 
         
         To promote the realisation of the objectives defined, the French Government is ready to open negotiations on the following bases : 
         
         The task with which this common High Authority will be charged will be that of securing in the shortest possible time the modernisation of production and the improvement of its quality; the supply of coal and steel on identical terms to the French en German markets, as well as to the markets of other member countries; the development in common of exports to other countries; the equalisation and improvement of the living conditions of workers in these industries. 
         
         To achieve these objectives, starting from the very different conditions in which the production of member countries is at present situated, it is proposed that certain transitional measures should be instituted, such as the application of a production and investment plan, the establishment of compensating machinery for equating prices, and the creation of a restructuring fund to facilitate the rationalisation of production. The movement of coal and steel between member countries will immediately be freed from all customs duty, and will not be affected by differential transport rates. Conditions will gradually be created which will spontaneously provide for the more rational distribution of production at the highest level of productivity. 
         
         In contrast to international cartels, which tend to impose restrictive practices on distribution and the exploitation of national markets, and to maintain high profits, the organisation will ensure the fusion of markets and the expansion of production. 
         
         The essential principles and undertakings defined above will be the subject of a treaty signed between the States and submitted for the ratification of their parliaments. The negotiations required to settle details of applications will be undertaken with the help of an arbitrator appointed by common agreement. He will be entrusted with the task of seeing that the agreements reached conform with the principles laid down, and, in the event of a deadlock, he will decide what solution is to be adopted. The common High Authority entrusted with the management of the scheme will be composed of independent persons appointed by the governments, giving equal representation. A chairman will be chosen by common agreement between the governments. The authority's decisions will be enforceable in France, Germany and other member countries. Appropriate measures will be provided for means of appeal against the decisions of the authority. 
         
         A representative of the United Nations will be accredited to the authority, and will instructed to make a public report to the United Nations twice yearly, giving an account of the working of the new organisation, particularly as concerns the safeguarding of its objectives. 
         
         The institution of the High Authority will in no way prejudge the methods of ownership of enterprises. In the exercise of its functions, the common High Authority will take into account the powers conferred upon the International Ruhr Authority and the obligations of all kinds imposed upon Germany, so long these remain in force.")
text3<-as.character(text3)
text3<-str_replace_all(text3, "[\r\n]" , "")
text3<-str_replace_all(text3, "  " , "")
text3<-strsplit(text3, ".", fixed = TRUE)
text_df3<-data.frame(line=1:31,text=text3)
colnames(text_df3)<-c("lines","text")
text_df3$text<-as.character(text_df3$text)

text_df3<- text_df3 %>%
  unnest_tokens(word, text)

data(stop_words)

text_df3 <- text_df3 %>%
  anti_join(stop_words)
## Joining, by = "word"
text_df3<- text_df3 %>%
  count(word, sort = TRUE)
text_df3 %>%
  filter(n > 2) %>%
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n)) +
  geom_col() +
  xlab(NULL) +
  coord_flip()

text_df3$author<-rep(c("schumann"),NROW(text_df3))

1.4 Comparison

frequency <- bind_rows(text_df2, 
                       text_df3,
                       text_df)
frequency<-frequency[,-c(2)]
frequency<-frequency %>%
  mutate(word = str_extract(word, "[a-z']+")) %>%
  count(author,word) %>%
  group_by(author) %>%
  mutate(proportion = n / sum(n)) %>%
  select(-n)
library(dplyr)
library(tidyr)
## Warning: package 'tidyr' was built under R version 3.3.2
frequency<-frequency %>%
  spread(author, proportion) 

frequency <- subset(frequency, select=c(word,churchill,schumann,macron))

frequency <-frequency %>% 
  gather(author, proportion, `churchill`:`schumann`)
library(scales)
## Warning: package 'scales' was built under R version 3.3.2
ggplot(frequency, aes(x = proportion, y = `macron`, color = abs(`macron` - proportion))) +
  geom_abline(color = "gray40", lty = 2) +
  geom_jitter(alpha = 0.5, size = 3.5, width = 0.4, height = 1.4) +
  geom_text(aes(label = word), check_overlap = TRUE, vjust = 2.5) +
  scale_x_log10(labels = percent_format()) +
  scale_y_log10(labels = percent_format()) +
  scale_color_gradient(limits = c(0, 0.5), low = "darkslategray4", high = "gray75") +
  facet_wrap(~author, ncol = 10) +
  theme(legend.position="none") 
## Warning: Removed 2628 rows containing missing values (geom_point).
## Warning: Removed 2629 rows containing missing values (geom_text).

cor.test(data = frequency[frequency$author == "schumann",],
         ~ proportion + `macron`)
## Warning in cor(x, y): l'écart type est nulle
## 
##  Pearson's product-moment correlation
## 
## data:  proportion and macron
## t = NA, df = 76, p-value = NA
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  NA NA
## sample estimates:
## cor 
##  NA
cor.test(data = frequency[frequency$author == "churchill",], 
         ~ proportion + `macron`)
## Warning in cor(x, y): l'écart type est nulle
## 
##  Pearson's product-moment correlation
## 
## data:  proportion and macron
## t = NA, df = 104, p-value = NA
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  NA NA
## sample estimates:
## cor 
##  NA

2 Sentiment analysis

library(tidytext)
sentiments
## # A tibble: 23,165 x 4
##           word sentiment lexicon score
##          <chr>     <chr>   <chr> <int>
##  1      abacus     trust     nrc    NA
##  2     abandon      fear     nrc    NA
##  3     abandon  negative     nrc    NA
##  4     abandon   sadness     nrc    NA
##  5   abandoned     anger     nrc    NA
##  6   abandoned      fear     nrc    NA
##  7   abandoned  negative     nrc    NA
##  8   abandoned   sadness     nrc    NA
##  9 abandonment     anger     nrc    NA
## 10 abandonment      fear     nrc    NA
## # ... with 23,155 more rows
get_sentiments("afinn")
## # A tibble: 2,476 x 2
##          word score
##         <chr> <int>
##  1    abandon    -2
##  2  abandoned    -2
##  3   abandons    -2
##  4   abducted    -2
##  5  abduction    -2
##  6 abductions    -2
##  7      abhor    -3
##  8   abhorred    -3
##  9  abhorrent    -3
## 10     abhors    -3
## # ... with 2,466 more rows
get_sentiments("bing")
## # A tibble: 6,788 x 2
##           word sentiment
##          <chr>     <chr>
##  1     2-faced  negative
##  2     2-faces  negative
##  3          a+  positive
##  4    abnormal  negative
##  5     abolish  negative
##  6  abominable  negative
##  7  abominably  negative
##  8   abominate  negative
##  9 abomination  negative
## 10       abort  negative
## # ... with 6,778 more rows
get_sentiments("nrc")
## # A tibble: 13,901 x 2
##           word sentiment
##          <chr>     <chr>
##  1      abacus     trust
##  2     abandon      fear
##  3     abandon  negative
##  4     abandon   sadness
##  5   abandoned     anger
##  6   abandoned      fear
##  7   abandoned  negative
##  8   abandoned   sadness
##  9 abandonment     anger
## 10 abandonment      fear
## # ... with 13,891 more rows

2.1 Sentiment analysis with inner join

nrcjoy <- get_sentiments("nrc") %>% 
  filter(sentiment == "joy")

text_df %>%
  inner_join(nrcjoy) %>%
  count(word, sort = TRUE)
## Joining, by = "word"
## # A tibble: 35 x 2
##          word    nn
##         <chr> <int>
##  1    achieve     1
##  2   ambition     1
##  3   applause     1
##  4        art     1
##  5       baby     1
##  6  beautiful     1
##  7 confidence     1
##  8     create     1
##  9    embrace     1
## 10   equality     1
## # ... with 25 more rows
library(tidyr)

text_df$index<-c(1:NROW(text_df))
sentiment_macron <- text_df %>%
  inner_join(get_sentiments("bing")) %>%
  spread(sentiment, n, fill = 0) %>%
  mutate(sentiment = positive - negative)
## Joining, by = "word"
library(ggplot2)

ggplot(sentiment_macron, aes(index, sentiment)) +
  geom_col(show.legend = FALSE) 

bing_word_counts <- text_df %>%
  inner_join(get_sentiments("bing")) %>%
  count(word, sentiment, sort = TRUE) %>%
  ungroup()
## Joining, by = "word"
bing_word_counts
## # A tibble: 173 x 3
##             word sentiment    nn
##            <chr>     <chr> <int>
##  1        absurd  negative     1
##  2        afraid  negative     1
##  3     ambitious  positive     1
##  4        astray  negative     1
##  5       asunder  negative     1
##  6 authoritarian  negative     1
##  7     beautiful  positive     1
##  8     betrayals  negative     1
##  9       betrays  negative     1
## 10        bitter  negative     1
## # ... with 163 more rows
library(wordcloud)
## Loading required package: RColorBrewer
text_df %>%
  anti_join(stop_words) %>%
  count(word) 
## Joining, by = "word"
## # A tibble: 933 x 2
##           word    nn
##          <chr> <int>
##  1        2005     1
##  2        2018     1
##  3     ability     1
##  4      abroad     1
##  5      absurd     1
##  6    academic     1
##  7      accept     1
##  8      accord     1
##  9 accountable     1
## 10     achieve     1
## # ... with 923 more rows
wordcloud(words = text_df$word, freq = text_df$n, min.freq = 1,
          max.words=200, random.order=FALSE, rot.per=0.35, 
          colors=brewer.pal(8, "Dark2"))

3 Analyzing words and speech frequency

4 Relationships between words: n-grams and correlations

library(dplyr)
library(tidytext)

text<-as.character(text)
text<-str_replace_all(text, "[\r\n]" , "")
text<-str_replace_all(text, "  " , "")
text<-strsplit(text, ".", fixed = TRUE)
text_df<-data.frame(line=1:195,text=text)
colnames(text_df)<-c("lines","text")
text_df$text<-as.character(text_df$text)

text_df<- text_df %>%
  unnest_tokens(bigram, text, token = "ngrams", n = 2)
text_df %>%
  count(bigram, sort = TRUE)
## # A tibble: 3,978 x 2
##        bigram     n
##         <chr> <int>
##  1     of the  5850
##  2    that is  4680
##  3     in the  4095
##  4     to the  3315
##  5      it is  3120
##  6    we have  3120
##  7    is what  2925
##  8    we will  2730
##  9 the people  2340
## 10  those who  2340
## # ... with 3,968 more rows
library(tidyr)

bigrams_separated <- text_df %>%
  separate(bigram, c("word1", "word2"), sep = " ")

bigrams_filtered <- bigrams_separated %>%
  filter(!word1 %in% stop_words$word) %>%
  filter(!word2 %in% stop_words$word)

# new bigram counts:
bigram_counts <- bigrams_filtered %>% 
  count(word1, word2, sort = TRUE)

bigram_counts
## # A tibble: 405 x 3
##          word1       word2     n
##          <chr>       <chr> <int>
##  1    european sovereignty  1170
##  2        move     forward   975
##  3 sovereignty   democracy   780
##  4       civil         war   585
##  5       crazy    ambition   585
##  6     initial     promise   585
##  7       prime    minister   585
##  8    academic   exchanges   390
##  9     climate      change   390
## 10      closed       doors   390
## # ... with 395 more rows
bigrams_united <- bigrams_filtered %>%
  unite(bigram, word1, word2, sep = " ")

bigrams_united
## # A tibble: 86,385 x 2
##    lines              bigram
##  * <int>               <chr>
##  1     1    stopped speaking
##  2     1      prime minister
##  3     1       minister dear
##  4     1         dear alexis
##  5     1     fellow citizens
##  6     1 thousand kilometres
##  7     1    saint barthelemy
##  8     1        saint martin
##  9     1  terrible hurricane
## 10     1        left victims
## # ... with 86,375 more rows
# new bigram counts:
bigram_counts <- bigrams_united %>% 
  count(bigram, sort = TRUE)
bigram_counts
## # A tibble: 405 x 2
##                   bigram     n
##                    <chr> <int>
##  1  european sovereignty  1170
##  2          move forward   975
##  3 sovereignty democracy   780
##  4             civil war   585
##  5        crazy ambition   585
##  6       initial promise   585
##  7        prime minister   585
##  8    academic exchanges   390
##  9        climate change   390
## 10          closed doors   390
## # ... with 395 more rows
bigram_counts %>%
  filter(n > 1) %>%
  mutate(bigram = reorder(bigram, n)) %>%
  ggplot(aes(bigram, n)) +
  geom_col() +
  xlab(NULL) +
  coord_flip()

AFINN <- get_sentiments("afinn")

AFINN
## # A tibble: 2,476 x 2
##          word score
##         <chr> <int>
##  1    abandon    -2
##  2  abandoned    -2
##  3   abandons    -2
##  4   abducted    -2
##  5  abduction    -2
##  6 abductions    -2
##  7      abhor    -3
##  8   abhorred    -3
##  9  abhorrent    -3
## 10     abhors    -3
## # ... with 2,466 more rows
not_words <- bigrams_separated %>%
  filter(word1 == "not") %>%
  inner_join(AFINN, by = c(word2 = "word")) %>%
  count(word2, score, sort = TRUE) %>%
  ungroup()

not_words
## # A tibble: 4 x 3
##   word2 score     n
##   <chr> <int> <int>
## 1 allow     1   195
## 2 leave    -1   195
## 3  true     2   195
## 4  want     1   195
not_words %>%
  mutate(contribution = n * score) %>%
  arrange(desc(abs(contribution))) %>%
  head(20) %>%
  mutate(word2 = reorder(word2, contribution)) %>%
  ggplot(aes(word2, n * score, fill = n * score > 0)) +
  geom_col(show.legend = FALSE) +
  xlab("Words preceded by \"not\"") +
  ylab("Sentiment score * number of occurrences") +
  coord_flip()

library(igraph)
## 
## Attaching package: 'igraph'
## The following objects are masked from 'package:tidyr':
## 
##     %>%, crossing
## The following object is masked from 'package:stringr':
## 
##     %>%
## The following objects are masked from 'package:dplyr':
## 
##     %>%, as_data_frame, groups, union
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
# original counts
bigram_counts
## # A tibble: 405 x 2
##                   bigram     n
##                    <chr> <int>
##  1  european sovereignty  1170
##  2          move forward   975
##  3 sovereignty democracy   780
##  4             civil war   585
##  5        crazy ambition   585
##  6       initial promise   585
##  7        prime minister   585
##  8    academic exchanges   390
##  9        climate change   390
## 10          closed doors   390
## # ... with 395 more rows
# filter for only relatively common combinations
bigram_graph <- bigram_counts %>%
  filter(n > 100) %>%
  graph_from_data_frame()

bigram_graph
## IGRAPH DN-- 411 405 -- 
## + attr: name (v/c)
## + edges (vertex names):
##  [1] european sovereignty  ->1170 move forward          ->975 
##  [3] sovereignty democracy ->780  civil war             ->585 
##  [5] crazy ambition        ->585  initial promise       ->585 
##  [7] prime minister        ->585  academic exchanges    ->390 
##  [9] climate change        ->390  closed doors          ->390 
## [11] cultural heritage     ->390  democratic conventions->390 
## [13] economic power        ->390  european countries    ->390 
## [15] european democracy    ->390  european level        ->390 
## + ... omitted several edges
library(ggraph)
## Warning: package 'ggraph' was built under R version 3.3.2
set.seed(2017)

ggraph(bigram_graph, layout = "fr") +
  geom_edge_link() +
  geom_node_point() +
  geom_node_text(aes(label = name), vjust = 1, hjust = 1)

set.seed(2016)

a <- grid::arrow(type = "closed", length = unit(.15, "inches"))

ggraph(bigram_graph, layout = "fr") +
  geom_edge_link(aes(edge_alpha = 25), show.legend = FALSE,
                 arrow = a, end_cap = circle(.07, 'inches')) +
  geom_node_point(color = "lightblue", size = 5) +
  geom_node_text(aes(label = name), vjust = 1, hjust = 1) +
  theme_void()

5 Topic modeling